Spalten eines DBGrid in INI-Datei speichern

[waldforest]

Danke für die Empfehlung.
Habe es ausprobiert, und das Ergebnis war toll; Mein persönlicher Anspruch (lediglich die Reihenfolge lässt sich verändern) wurde sogar übertroffen.
Ich habe aber dadurch viele neues gelernt und auch mein Problem lösen können.

Hier nun die Gesamtlösung, welche auch funktioniert.
Manchmal reicht ein kleiner Tipp um Quantensprünge zu machen, Danke !!!

Forest

Delphi-Quellcode:

Procedure TQueryForm.GridIniWritePos(GridName: TDBGrid; Section: String) ;
var
  Ini : TIniFile;
  i : Integer;
  reihenfolge : String;
begin
  reihenfolge := '';
  for i := 0 to GridName.FieldCount-1 do
    reihenfolge := reihenfolge+GridName.Columns.Items[i].FieldName+';';            :thumb: 
    Ini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
  try
    Ini.WriteString(Section, 'Reihenfolge:', reihenfolge);
  finally
    Ini.Free;
  end;
end;

Procedure TQueryForm.GridIniReadPos(GridName: TDBGrid; Section: String) ; 
var
  Ini : TIniFile;
  reihenfolge : String;
  i, posi     : integer;
begin
  reihenfolge := '';

  try
    Ini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
    reihenfolge := Ini.ReadString(Section, 'Reihenfolge:', '');

    posi := Pos(';', reihenfolge);
    i := 0;
    while posi > 0 do
    begin
      GridName.Columns.Items[i].FieldName :=  Copy(reihenfolge, 1, posi-1);
      Delete(reihenfolge, 1, posi);
      posi := Pos(';', reihenfolge);
      Inc(i);
    end;
  finally
    Ini.Free;
  end;

end;

[edit=alcaeus]Delphi-Tags korrigiert. Mfg, alcaeus[/edit]