Fastreport Objekt in abhängikeit von DB Feld

[manfred_h]

Danke für den Hiinweis

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);
  for i := 0 to list.Count -1 do       
  begin
    if list[i]='PERSONS' then DefaultPERSONS.Visible := true; //Feld vorhanden
    if list[i]='WORKER'  then dist_worker.Visible := true;
    if list[i]='PLACEMENT' then DefaultPLACEMENT.Visible := true;        
    if list[i]='BEDS' then DefaultBEDS.Visible := true;        
    if list[i]='Q_GIDEONS' then DefaultQ_GIDEONS.Visible := true;        
    if list[i]='CAT' then DefaultCAT.Visible := true;                        
    ds.Next;                   
  end;
end;

Shalom
Manfred