Tstrings Addobject
Доброго времени суток, всем!
Хочу в скрипте сделать следующее:
Так вот у MyObject должно быть два свойства S1: String и S2 : Int
Как в скрипте создать такой объект??
Хочу в скрипте сделать следующее:
MyStrings : TStrings;
...
MyStrings := TStrings.Create;
...
MyStrings.AddObject(MyObject)
Так вот у MyObject должно быть два свойства S1: String и S2 : Int
Как в скрипте создать такой объект??
MyObject : TObject;
...
MyObject := TObject.Create;
а дальше ???
Комментарии
..
MyStrings.AddObject(S1,TObject(S2))
..
x:int
x:= Integer(MyStrings.Objects[index]);
Мне немного не это нужно.
Мне нужно создать объект у которого будет 2 свойства. Потом этот объект поместить в TStrings.
Или ... я наверное заработался... нужно создать класс у которого будут 2 свойства.
далее заполняем свойства класса и помещаем в TStrings
Что то вроде этого (по аналогии с Delphi):
Понятно , буду использовать 2 TStrings
Спасибо, тоже вариант, но не очень хочется менять что-либо в исходниках Delphi.