Tstrings Addobject

RAVen42

Доброго времени суток, всем!

Хочу в скрипте сделать следующее:

MyStrings : TStrings;
 ...
 MyStrings := TStrings.Create;
 ...
 MyStrings.AddObject(MyObject)

Так вот у MyObject должно быть два свойства S1: String и S2 : Int

Как в скрипте создать такой объект??

 MyObject : TObject;
 ...
 MyObject := TObject.Create;

а дальше ???

PNP

S1: String и S2 : Int
..
MyStrings.AddObject(S1,TObject(S2))
..
x:int
x:= Integer(MyStrings.Objects[index]);

PNP

PNP написал: »

S1: String и S2 : Int
..
MyStrings.AddObject(S1,TObject(S2))
..
x:int
x:= Integer(MyStrings.Objects[index]);

Хотя, так наверное не получится. Не умеет оно Integer(MyStrings.Objects[index]). Придется добавить свою функцию (типа MyObjToIntFunc(Obj:TOblect)) и туда отдавать MyStrings.Objects[index]

RAVen42

PNP


Мне немного не это нужно.

Мне нужно создать объект у которого будет 2 свойства. Потом этот объект поместить в TStrings.

Или ... я наверное заработался... нужно создать класс у которого будут 2 свойства.
далее заполняем свойства класса и помещаем в TStrings

Что то вроде этого (по аналогии с Delphi):

TCustomer = class
    private
      CustomerName   : String;
      CustomerNumber : Integer;
.....

var
  customer : TCustomer;
....

  myList := TList.Create;

  customer := TCustomer.Create('БлаБЛабЛа', 123);
  myList.Add(customer);

PNP

Нет в скрипте классов. Придется ограничиться двумя TStrings

RAVen42

PNP написал: »

Нет в скрипте классов. Придется ограничиться двумя TStrings

Понятно , буду использовать 2 TStrings

Stalker4

RAVen42 написал: »

Понятно , буду использовать 2 TStrings

Вы можете создать этот класс в коде Delphi, а в скрипте объявите переменные типа этого класса и будете их там же в скрипте использовать.

RAVen42

Stalker4 написал: »

Вы можете создать этот класс в коде Delphi, а в скрипте объявите переменные типа этого класса и будете их там же в скрипте использовать.

Спасибо, тоже вариант, но не очень хочется менять что-либо в исходниках Delphi.