Tstrings Addobject

Комментарии

• PNP

  June 2014 отредактировано 01:36

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

  June 2014 отредактировано 01:36

  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

  June 2014 отредактировано 01:36

  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

  June 2014 отредактировано 01:36

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

  June 2014 отредактировано 01:36

  PNP написал: »

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

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

  June 2014 отредактировано 01:36

  RAVen42 написал: »

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

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

  June 2014 отредактировано 01:36

  Stalker4 написал: »

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

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