Guten Morgen.
Welche Delphi Version verwendest du? Lässt sich der Code bei dir nicht übersetzen oder erhältst du einen Laufzeitfehler?
Delphi-Quellcode:
function FieldExists(conn: TADOConnection; const tableName, fieldName: String): Boolean;
var
s: TStrings;
begin
s := TStringList.Create;
conn.GetFieldNames(tableName, s);
Result := s.IndexOf(fieldName) >= 0;
s.Free;
end;
Grüße vom marabu