Fastreport Objekt in abhängikeit von DB Feld

[manfred_h]

Hallo nochmals

bin ein wenig weiter..

Delphi-Quellcode:

procedure DefaultPERSONSOnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;
db_list: String;                       
  
begin
  ds := Report.GetDataset('default');// username of ds
  list := TStringList.Create;
  ds.GetFieldList(list);
  for i := 0 to list.Count - 1 do
  begin              
   db_list := ds.Value[list[i]]; // get field value by its name
    if ['db_list'] = 'PERSONS' then DefaultPERSONS.Visible := true;  
   ds.Next;                   
  end;
end;

if ['db_list'] ist in Klamern da dies anscheinend Notwenig ist.

Zitat:

Make sure when passing the variable a value if it is a string variable to
use extra apostrophe's ['myvariable'] = ''''+string+''''
or it will be an expression and trigger the ogv event.

Erhalte aber immer noch eine Fehlermeldung:
Invalid Variant Operation

PS: Bei dem Wert PERSONS geht es nicht um den Inhalt der Spalte sondern um den Splatennamen.