Field exists

[bernhard_LA]

Hallo ,


wie frage ich denn am besten bei einer sehr großen DB Tabelle ab ob ein bestimmtes Feld existiert oder nicht

Ich möchte ***Keine *** Query oder Tabelle öffnen ... mit doesem Code habe ich deshalb so meine Probleme

Delphi-Quellcode:

function FindFieldInDB (DataSet: TDataSet; FieldName: String): Boolean;
var
  findField: TField;
begin
  Result := false; {Posit failure}

  findField := nil;
  findField := DataSet.FindField(FieldName);
  if Assigned(findField) then
  begin
    Result := not (findField.Calculated);
  end;
end;