Überprüfen ob Spalte existiert

[hoika]

Hallo,

Open/Close kommt von der Query.

Nach dem Open kommt dann z.B.

Delphi-Quellcode:

function FieldExists(theDataSet: TDataSet; const theFieldName: String): Boolean;
var
  iFieldIndex: Integer;
begin
  Result:= False;

  for iFieldIndex:=0 to theDataSet.FieldCount-1 do
  begin
    if CompareText(theDataSet.Fields[iFieldIndex].FieldName,theFieldName)=0 then
    begin
      Result:= True;
      Exit;
    end;
  end;
end;  { FieldExists }

Heiko