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

anatol

Как можно использовать в отчете переменную TStringList с объектами типа

TMyVar = class
Var1:Integer;
Var2:Currency;
end;

AlexTZ

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

anatol

В коде можно использовать переменную класса 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

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