Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#16
  Alt 18. Sep 2002, 11:54
Hallo m-werk,

sowohl TQuery als auch TTable sind (indirekt) von TDataSet abgeleitet. Dort ist die Eigenschaft Fields definiert.

Je nachdem wann du die Reihenfolge der Felder im Grid speichern willst, könntest du in der entsprechenden Ereignismethode folgendes schreiben:

Code:
var
  Ini        : TIniFile;
  i          : Integer;
  reihenfolge : String;
 
...
try
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName), '.INI');
  reihenfolge := '';
  for i := 0 to MyTable.FieldCount-1 do
    reihenfolge := reihenfolge+IntToStr(MyTable.Fields[i].Index)+';'

  Ini.WriteString('Grid', 'Reihenfolge', reihenfolge);
  Ini.Free;
except
...
Das Einlesen läuft analog, z.B. in der OnActivate Methode.

Ist zwar nicht getestet, sollte aber funktionieren.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat