Fastreport Objekt in abhängikeit von DB Feld

[manfred_h]

Danke nochmals.

hier nochmals ohne for Schlaufe:

Delphi-Quellcode:

procedure DetailData1OnBeforePrint(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);
  begin
    if list.IndexOf('PERSONS') > -1 then //Feld vorhanden
      DefaultPERSONS.Visible := true;
    if list.IndexOf('WORKER') > -1 then //Feld vorhanden
      DefaultWORKER.Visible := true;
    if list.IndexOf('PLACEMENT') > -1 then //Feld vorhanden
      DefaultPLACEMENT.Visible := true;
    if list.IndexOf('BEDS') > -1 then //Feld vorhanden
      DefaultBEDS.Visible := true;
    if list.IndexOf('Q_GIDEONS') > -1 then //Feld vorhanden
      DefaultQ_GIDEONS.Visible := true;
    if list.IndexOf('CAT') > -1 then //Feld vorhanden
      DefaultCAT.Visible := true;                
   ds.Next;                   
  end;
end;

Danke
Manfred