Spalten in einem DBGrid verschieben und auch sortieren!

[Luckie]

Sollte eigentlich. Aber dein gesamter try-Block ist Mist. Bei einem Fehler wird Ini nicht wieder freigegeben usw.

So ist es besser:

Code:

[b]procedure[/b] TKundenDruckMenue.FormClose(Sender: TObject; 
[b]var[/b] Action: TCloseAction); 
[b]var[/b] 
  Ini : TIniFile; 
  i : Integer; 
  reihenfolge : [b]String[/b]; 
[b]begin[/b] 
  reihenfolge := ''; 
  [b]for[/b] i := 0 [b]to[/b] DBGrid1.FieldCount-1 [b]do[/b] 
    reihenfolge := reihenfolge+IntToStr(DBGrid1.Fields[i].Index)+';'; 
  Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Einstellungen.ini'); 
  [b]try[/b]
    Ini.WriteString('Grid', 'Reihenfolge', reihenfolge); 
  [b]finally[/b]
    Ini.Free; 
  [b]end[/b]; 
[b]end[/b];

Eventuell behebt das auch dein Poblem.