DBGrid.Options auslesen

[timog]

Hallo ekatharina,

meinst Du sowas?

Delphi-Quellcode:

uses
  System.TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
  LGridOption: TDBGridOption;
  LName: string;
begin
  for LGridOption := Low(TDBGridOption) to High(TDBGridOption) do 
  begin
    LName:=GetEnumName(TypeInfo(TDBGridOption), Ord(LGridOption));
    if LGridOption IN DBGrid1.Options then 
    begin 
      Memo1.Lines.Add(LName + '=JA'); 
    end else 
    begin
      Memo1.Lines.Add(LName + '=NEIN');
    end;
  end;
end;