Список атрибутов в диалоговом окне

Автор tur, 16.06.20, 08:12:37

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

tur

FastReport 2.4, Лоцман 2013
Как в Диалоговом окне FastReport вывести в «ListBox» список нужного атрибута?

Есть такой скрипт :
   j:=0;
  TableTP := Table.Create('_ID;_PRODUCT;_TYPE','ftString;ftString;ftString','255;255;255');
  Table.FillByLinks([Объект.ID],TableTP+';Состоит из ...;False;False','_ID_VERSION;_PRODUCT;_TYPE>_ID;_PRODUCT;_TYPE');
  if [table.RecordCount(TableTP)] > 0 then
    begin
      [table.First(TableTP)];
      for i:=0 to TABLE.RecordCount(TableTP)-1 do
      begin
        if (Table.GetField(TableTP,'_Type') = 'Перечень оснастки') then
               Begin
          ListBoxStanc.Items[j]:=Table.GetField(TableTP,'_PRODUCT');       
                     inc(j);
          End;
        [table.Next(TableTP)];
      end;
      Stanciy.TEXT :=ListBoxStanc.Items[0];
      ListBoxStanc.ItemIndex := 0;
    end;
Как заменить Обозначение (_PRODUCT) на любой табличный атрибут.?