Problem mit ini-Datei bei Wertzuweisungen

[Subsidenz]

Hallo,

Ich habe mich mal näher mit einer Art Datenbank beschäftigt. Der Inhalt von meinem Programm wäre ein StringGrid in der verschiedene Werte stehen. Diese möchte ich in einer ini abspeichern und auch wieder abfragen können. Mein Problem hierbei ist das grundsätzliche Problem bei einer Wertzuweisung. Ich habe es schon geschafft, dass wenn ich auf den Button Speichern klicke, fügt er ein Element der Stringgrid in die ini, jedoch möchte ich eine Art Schleife (for to oder repeat oder was sich am besten macht). Habt ihr eine Lösung parat?

Quellcode:

Code:

procedure TForm1.speiClick(Sender: TObject);
var a,h : integer;
begin
a:=1;
h:=grid.RowCount;
ini := TIniFile.Create(ExtractFilePath( ParamStr(0))+'data.ini')
for a:=1 to h do
begin
 ini.WriteString('Titel', 'a', grid.Cells[0,a])
end;
end;

Die Schleife funktioniert halt nicht. Er soll von der StringGrid (grid) in der 1. Spalte alle Elemente von 1 bis Anzahl der vorhanden Elemente (also RowCount) in die ini schreiben.

MFG Subsidenz

[DeddyH]

Du überschreibst in Deiner Schleife immer wieder denselben Ident in derselben Section.

[Subsidenz]

Zitat von DeddyH:

Du überschreibst in Deiner Schleife immer wieder denselben Ident in derselben Section.

Wie wie sollte es dann richtig heißen? Ich mein der macht doch theorethisch in die erste Zeile den Wert also in a (das ja 1 ist) und dann geht der weiter oder? Der soll das ja bis h machen.

[DeddyH]

Ich weiß nicht, ob ich Dich richtig verstanden habe, aber versuch es mal so:ini.WriteString('Titel', IntToStr(a), grid.Cells[0,a])

[Subsidenz]

Zitat von DeddyH:

Ich weiß nicht, ob ich Dich richtig verstanden habe, aber versuch es mal so:ini.WriteString('Titel', IntToStr(a), grid.Cells[0,a])

Woaw tatsächlich das funktioniert^^ Danke DeddyH

[Muetze1]

Sollte die Schleife nicht eher von 0 bis h-1 gehen - oder wenn du eine Überschrift hast, dann halt von 1 bis h-1?

[DeddyH]

Stimmt eigentlich, da hatte ich gar nicht hingesehen. Ich würde einfach von FixedRows bis RowCount - 1 gehen, das sollte immer passen.

[Subsidenz]

Da ich eine Überschrift in der Tabelle habe geht das schon alles seinen Gang

Mir ist da noch was eingefallen:
Wie kann ich nun die Anzahl an Werten in einer ini mir ausgeben lassen? Ich möchte also wissen, wieviel Werte unter einer Sektion in der ini stehen.

MFG Subsidenz

[DeddyH]

Versuch es mal mit TIniFile.ReadSectionValues. Die Anzahl der Einträge in der Stringliste entspricht dann der Anzahl der Werte.