Spalten in einem DBGrid verschieben und auch sortieren!

[m-werk]

Ja sicher funktioniert es, aber nur dann wenn Daten im Grid stehen. Kann man das auch irgendwie lösen, auch wenn keine Daten im Grid stehen?

Das ist aber nicht so wichtig. Wichtig wäre Wie kann ich jetzt die Spaltenposition beim öffnen des Formulares aus der INI lesen?

[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.

[m-werk]

Zitat:

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

Genau das meine ich. Das Verschieben der Spalten bei einer Leeren Tabelle wird nicht in die INI gespeichert.

Danke für den Code, ich werde ihn am Wochenende testen.

[Luckie]

Herr im Himmel.

Nehmt doch endlich mal das TIniFiel.Create aus dem try-Block raus!

Lest ihr euch denn nicht die Warnungen durch, die der Kompiler ausgibt? Wenn ich das so mache wie ihr, steht da immer:

Zitat:

[Warnung] Unit1.pas(35): Variable 'ini' wurde wahrscheinlich nicht Initialisiert

Das habe ich schon öfters bemängeld und korrigiert.

Hier noch mal wie es richtig geht:

Code:

[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]var[/b]
  ini: TiniFile;
[b]begin[/b]
  ini := Tinifile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  [b]try[/b]
    ini.WriteString('Programm', 'Pfad', ParamStr(0));
  [b]finally[/b]
    ini.Free;
  [b]end[/b];
[b]end[/b];

[MrSpock]

Jaja, is ja schon gut...

[Luckie]

Na dann wollen wir mal hoffen, dass das jetzt angekommen ist. Wenn ich das noch mal bei dir sehen, dann schreibst du mir hundertmal:

Zitat:

TIni.Create kommt nicht in den try-Block.

[MrSpock]

@Luckie: schon mal profilaktisch...

Code:

for i := 1 to 100 do
  Writeln('TIni.Create kommt nicht in den try-Block. ');

[MrSpock]

@m-werk,

ich hab mir das jetzt mal angeschaut, es funktioniert auch mit leeren Tabellen, aber nicht mit GESCHLOSSENEN Tabellen. Das ist ja auch klar, weil dann die Verbindung zur Tabelle nicht besteht. Du musst also sicher stellen, dass die Tabelle geöffnet ist, wenn die Reihenfolge geschrieben werden soll. Auch beim Lesen und zuweisen der Indices muss die Tabelle geöffnet sein.

[m-werk]

Hi, was soll ich den genau tun, damit die Tabelle offen ist?

[MrSpock]

Hallo m-werk,

grundsätzlich natürlich mit MyTable.Open. Irgendwo wird ja die Tabelle geöffnet, entweder schon im Objektinspektor oder irgendwo im Programm. Dann lässt du einfach das Schließen der Tabelle nicht zu.