Spalten in einem DBGrid verschieben und auch sortieren!

[MrSpock]

Hallo m-werk,

was genau meinst du mit

Zitat:

Im DBGrid müssen erst Datensätze stehen

Meinst du, dass die Tabelle erst geöffnet werden muss oder dass das Verschieben der Spalten mit einer leeren Tabelle nicht funktioniert?

Nun zum Lesen der IniDatei:

Code:

var
  Ini : TIniFile;
  i,
  posi : Integer;
  reihenfolge : String;
begin
  reihenfolge := '';
  try
    Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Einstellungen.ini');
    reihenfolge := Ini.ReadString('Grid', 'Reihenfolge', '');
  finally
    Ini.Free;
  end;
  try
    posi := Pos(reihenfolge, ';');
    i := 0;
    while posi > 0 do
    begin
      DBGrid1.Fields[i].Index := StrToInt(Copy(reihenfolge, 1, posi-1));
      Delete(reihenfolg, 1, posi);
      posi := Pos(reihenfolge, ';');
      Inc(i);
    end;
   except
     on E:exception do
        ShowMessage('Fehler in der Ini-Datei:'#13
                         +E.Message);
   end;
end;

Hab ich zwar nicht getestet, aber so ähnlich sollte das wohl aussehen.