FieldByName prüfen ob Feld im Resultset vorhanden

[Temi00]

Hallo Forum,

Code:

procedure TfrmRechnung.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
     if ArtikelData.qrMain.Fields.FieldByName('Pfand').AsString = '0' then begin

        QRLPfand.Caption := '';
        QRLPfandE.Caption := '';
     end else begin

wie kann ich testen ob das Feld Pfand überhaupt in dem Resultset vorhanden ist? Das Problem das RechnungsFormular wird von verschiedenen Stellen aus benutzt und manchmal ist das Feld in der Query vorhanden und manchmal nicht.

mfg - micha

[schlecki]

das geht so:

Delphi-Quellcode:

var
  fld: TField;
begin
  fld := ArtikelData.qrMain.Fields.FindField('Pfand');
  if assigned(fld) then
  begin
  ...
  end;

[Temi00]

Danke!