Tstrings Addobject

отредактировано June 2014 Раздел: FastReport 4.0
Доброго времени суток, всем!

Хочу в скрипте сделать следующее:
MyStrings : TStrings;
 ...
 MyStrings := TStrings.Create;
 ...
 MyStrings.AddObject(MyObject)

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

Как в скрипте создать такой объект??
 MyObject : TObject;
 ...
 MyObject := TObject.Create;
а дальше ???

Комментарии

  • PNPPNP
    отредактировано 23:41
    S1: String и S2 : Int
    ..
    MyStrings.AddObject(S1,TObject(S2))
    ..
    x:int
    x:= Integer(MyStrings.Objects[index]);
  • PNPPNP
    отредактировано 23:41
    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]
  • отредактировано 23:41
    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);
    


  • PNPPNP
    отредактировано 23:41
    Нет в скрипте классов. Придется ограничиться двумя TStrings
  • отредактировано 23:41
    PNP написал: »
    Нет в скрипте классов. Придется ограничиться двумя TStrings

    Понятно :) , буду использовать 2 TStrings
  • Stalker4Stalker4 123
    отредактировано 23:41
    RAVen42 написал: »
    Понятно :) , буду использовать 2 TStrings
    Вы можете создать этот класс в коде Delphi, а в скрипте объявите переменные типа этого класса и будете их там же в скрипте использовать.
  • отредактировано 23:41
    Stalker4 написал: »
    Вы можете создать этот класс в коде Delphi, а в скрипте объявите переменные типа этого класса и будете их там же в скрипте использовать.

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

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.