Spalten eines DBGrid in INI-Datei speichern

**waldforest**

Halo,

Habe einen Tipp mit dem
DBGrid1.Columns.SaveToFile('c:\sortierung.txt') gefunden, ist toll, und funktioniert

Ich möchte allerdings den Stream in eine INI-Section ablegen, hier verzweifel ich.
Habe auch keine Ahnung, wie ich einen TStringStream direkt in eine INI-Section bekomme.
Hat jemand einen Tipp ??

mfg waldforest

zusammenfalten · markieren

Delphi-Quellcode:

			 
procedure TQueryForm.GridToIni(GridName: TDBGrid; Section: string); 

var 

MS: TMemoryStream; 

Ini : TIniFile; 

tTv: TStringStream; 

node : string; 

n: integer; 

begin 

tTv := TStringStream.Create(''); 

MS := TMemoryStream.Create; 

Ini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')); 

try 

GridName.Columns.SaveToStream(MS); 

MS.Position := 0; 

tTv.Read(MS,ms.Size) ; 

INI.EraseSection(Section); 

INI.WriteString(Section, '', tTv.DataString); // Hier läuft die Anwendung auf Fehler 

finally 

tTv.Free; 

MS.Free; 

end; 

end;

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

**marabu**

Zitat von waldforest:

Habe auch keine Ahnung, wie ich einen TStringStream direkt in eine INI-Section bekomme.

Direkt geht das auch nicht. Außerdem bekommst du Schwierigkeiten, wenn du solche Eigenschaften wie Font speichern willst. Die Ini-Datei bietet sich eigentlich nur für solche Eigenschaften der Columns an, die in deinem Programm vom Benutzer zur Laufzeit verändert werden können. Hier eine kleine Starthilfe:

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  TypInfo,

  IniFiles;

procedure SaveToIniFile(gc: TDBGridColumns; ini: TMemIniFile);

var

  i, j, iProps: integer;

  c: TColumn;

  ppl: PPropList;

  ppi: PPropInfo;

  colName: string;

begin

  for i := 1 to gc.Count do begin

    c := gc.Items[Pred(i)];

    colName := c.FieldName;

    ini.EraseSection(colName);

    iProps := GetPropList(c, ppl);

    for j := 0 to Pred(iProps) do begin

      ppi := ppl[j];

      case ppi.PropType^.Kind of

        tkString,

        tkLString:

          ini.WriteString(colName, ppi.Name, GetStrProp(c, ppi));

        tkInteger:

          ini.WriteString(colName, ppi.Name, IntToStr(GetInt64Prop(c, ppi)));

        tkEnumeration:

          ini.WriteString(colName, ppi.Name, GetEnumProp(c, ppi));

      end;

    end;

  end;

end;

Grüße vom marabu

**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

zusammenfalten · markieren

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]

**renekr**

Hi,waldforest

Ich habe gerade das selbe Thema.

Habe deine Source getestet und das Speichern geht, aber ich kann es zwar auslesen,aber er ändert die Reihenfolge beim Grid nciht.
welche Ereignisse hast du verwendet??
Danke.

**marabu**

Hi René,

wenn es dir nur um die Reihenfolge der Spalten in einem DBGrid geht, dann reicht vielleicht schon das hier:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure LoadColumnOrder(gc: TDBGridColumns; sl: TStrings);

var

  i: integer;

begin

  for i := 0 to gc.Count - 1 do

    with gc.Items[i] do

    Index := sl.IndexOf(FieldName);

end;

procedure SaveColumnOrder(gc: TDBGridColumns; sl: TStrings);

var

  i: integer;

begin

  sl.Clear;

  for i := 0 to gc.Count - 1 do

    sl.Add(gc.Items[i].FieldName);

end;

// Verwendung:

// SaveColumnOrder(DBGrid.Columns, sl);

// LoadColumnOrder(DBGrid.Columns, sl);

Müsstest du aber noch testen.

Grüße vom marabu

**renekr**

Hi,
jo mir gehts nur um das Column Reihenfolge,
Ich bekomme da nur eine Zugriffsverletzung.
Ich habe das Ereignis ONColumnMoved genommen!

Wenn ich das PRog schließe und wida Starte hat er ja wida die Normalen Columns dann muß ich die Strings speichern.

Danke.

**marabu**

DIe Ereignisse OnCreate() und OnCloseQuery() deiner Form mit dem Grid sind sehr gut geeignet um die Spaltenreihenfolge im Grid herzustellen bzw. zu speichern.

marabu

**renekr**

Hi,
Danke.
Aber die Zugriffsverletzung kommt imma noch.
Habe das über Buttons gemacht und mit Memo ,da ging es.
Kann es sein das mit der TStings was nicht so stimmt.

Danke.
PS: Habe mit `TStrings noch wenig gemacht,

Danke.

**marabu**

sl wird außerhalb von den Load- und Save-Routinen instanziiert:

markieren

Delphi-Quellcode:

			var

  sl: TStringList;

begin

  sl := TStringList.Create;

  SaveColumnOrder(DBGrid.Columns, sl);

  ini.WriteString('Grid.Settings', 'ColumnOrder', sl.CommaText);

  sl.Free;

end;

Du hast doch nicht etwa versucht TStrings zu erzeugen?

marabu

**renekr**

Danke.
Werde ich a mal testen,
Ich habe es jetzt mit einer Ini gelöst.

Klappt 1 A hab es nur noch in ontitleclick auch noch einfügen müßen,weil ich da die Sortierung mache.

BSP:
procedure TForm1.Button43Click(Sender: TObject); //LOAD
var
i: integer;
begin
for i := 0 to dbgrid1.columns.Count - 1 do
with dbgrid1.columns.Items[i] do
Index := ini.readinteger('Reihenfolge_Arbeitsscheine',Field Name,i);
end;

procedure TForm1.Button44Click(Sender: TObject);//SAve
var
i: integer;
begin
for i := 0 to dbgrid1.columns.Count - 1 do
begin
ini.Writeinteger('Reihenfolge_Arbeitsscheine',dbgr id1.columns.Items[i].FieldName,i);
end;

end;

Spalten eines DBGrid in INI-Datei speichern

Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Re: Spalten eines DBGrid in INI-Datei speichern

Forumregeln

renekr Registriert seit: 27. Feb 2005 Ort: Karlsbad 534 Beiträge Delphi 2007 Enterprise	#4 Re: Spalten eines DBGrid in INI-Datei speichern 24. Sep 2005, 05:21 Hi,waldforest Ich habe gerade das selbe Thema. Habe deine Source getestet und das Speichern geht, aber ich kann es zwar auslesen,aber er ändert die Reihenfolge beim Grid nciht. welche Ereignisse hast du verwendet?? Danke.
	Zitat

renekr Registriert seit: 27. Feb 2005 Ort: Karlsbad 534 Beiträge Delphi 2007 Enterprise	#6 Re: Spalten eines DBGrid in INI-Datei speichern 24. Sep 2005, 10:47 Hi, jo mir gehts nur um das Column Reihenfolge, Ich bekomme da nur eine Zugriffsverletzung. Ich habe das Ereignis ONColumnMoved genommen! Wenn ich das PRog schließe und wida Starte hat er ja wida die Normalen Columns dann muß ich die Strings speichern. Danke.
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#7 Re: Spalten eines DBGrid in INI-Datei speichern 24. Sep 2005, 11:07 DIe Ereignisse OnCreate() und OnCloseQuery() deiner Form mit dem Grid sind sehr gut geeignet um die Spaltenreihenfolge im Grid herzustellen bzw. zu speichern. marabu
	Zitat

renekr Registriert seit: 27. Feb 2005 Ort: Karlsbad 534 Beiträge Delphi 2007 Enterprise	#8 Re: Spalten eines DBGrid in INI-Datei speichern 24. Sep 2005, 11:19 Hi, Danke. Aber die Zugriffsverletzung kommt imma noch. Habe das über Buttons gemacht und mit Memo ,da ging es. Kann es sein das mit der TStings was nicht so stimmt. Danke. PS: Habe mit `TStrings noch wenig gemacht, Danke.
	Zitat