Использование объектов в TStringList

Комментарии

• AlexTZ

  December 2004 отредактировано 15:31

  Не понял вопроса, можно подробнее?
• anatol

  December 2004 отредактировано 15:31

  В коде можно использовать переменную класса TStringList:
  
  var MyList :TStringList;
  
  procedure frxReport1OnStartReport(Sender: TfrxComponent);
  begin
  MyList:=TStrings.Create;
  end;
  
  procedure frxReport1OnStopReport(Sender: TfrxComponent);
  begin
  MyList.Free;
  end;
  
  procedure Memo1OnBeforePrint(Sender: TfrxComponent);
  begin
  MyList.Add('jhkjhkjh');
  end;
  
  Но мне бы хотелось использовать MyList.AddObject('jhkjhkjh',TMyVar);
  TMyVar = class
  Var1:Integer;
  Var2:Currency;
  end;
  Вот и незнаю как это замутить.
• AlexTZ

  December 2004 отредактировано 15:31

  Класс надо объявить в FastScript, см. документацию по нему. После этого класс можно использовать в скрипте.