Werte aus einer Ini Datei Lesen funktioniert nicht so ganz

[Dalai]

Zitat von Robin2k:

Hier:

Und wo ist die Änderung, die Stringlisten vor der Schleife zu erzeugen? Du hast da lustige Speicherlecks.

PS: Die hartkodierten Pfade lässt du am besten auch gleich weg.

MfG Dalai

[Back2Code]

Zitat von Dalai:

Zitat von Robin2k:

Hier:

Und wo ist die Änderung, die Stringlisten vor der Schleife zu erzeugen? Du hast da lustige Speicherlecks.

PS: Die hartkodierten Pfade lässt du am besten auch gleich weg.

MfG Dalai

Das Problem ist dann, dass es mit dem Erstellen des Inifiles nicht mehr ging, da ja inilist.Strings[i] genutzt wird von der Schleife...Ich weiß leider nicht wie ich anderst besser machen könnte.

[Uwe Raabe]

ini.ReadSectionValues(Sektionen.Strings[jj], Werte); //<-- Da muss irgendwo der Fehler liegen Genau! Bei jedem Aufruf wird der aktuelle Inhalt von Werte gelöscht.

[Back2Code]

Zitat von Uwe Raabe:

ini.ReadSectionValues(Sektionen.Strings[jj], Werte); //<-- Da muss irgendwo der Fehler liegen Genau! Bei jedem Aufruf wird der aktuelle Inhalt von Werte gelöscht.

Wie kann ich das Löschen verhindern bzw, dass ich alle Werte von allen Sektionen in der Stringlist speichere?

[Dalai]

Zitat von Robin2k:

Das Problem ist dann, dass es mit dem Erstellen des Inifiles nicht mehr ging, da ja inilist.Strings[i] genutzt wird von der Schleife...

Das ist doch nicht das Problem, sondern das hier:

Delphi-Quellcode:

for i := 0 to inilist.Count-1 do
  begin
    ini := TIniFile.Create(inilist.Strings[i]);
    Sektionen := TStringList.Create;
    Abschnitte := TStringList.Create;
    Schlüssel := TStringlist.Create;
    Werte := TStringList.Create;
    [...]
    Sektionen.SaveToFile ('C:\Users\admin\Desktop\aTest\Sektionen.txt');
  Abschnitte.SaveToFile ('C:\Users\admin\Desktop\aTest\Abschnitte.txt');
  Werte.SaveToFile ('C:\Users\admin\Desktop\aTest\Werte.txt');

Das ist doch Käse. Erzeuge die Listen ini, Sektionen & Co einmalig vor der Schleife und leere sie, sofern nötig, mit TStringList.Clear innerhalb der for-Schleife. [ADD] Und zu jedem TStringList.Create gehört ein TStringList.Free.[/ADD]

MfG Dalai

[p80286]

Zitat von Dalai:

PS: Die hartkodierten Pfade lässt du am besten auch gleich weg.

Wenn Du dies hier meinst:

Delphi-Quellcode:

Sektionen.SaveToFile ('C:\Users\admin\Desktop\aTest\Sektionen.txt');
Abschnitte.SaveToFile ('C:\Users\admin\Desktop\aTest\Abschnitte.txt');
Werte.SaveToFile ('C:\Users\admin\Desktop\aTest\Werte.txt');

Das begeistert zwar nicht, aber ist wohl nur für die Testausgabe.
Oder war das Deine Bewerbung für den Job in Rom

Gruß
K-H

[Back2Code]

Ja also wie es der Ordner vermuten lässt, besteht die Speicherfunktion lediglich für Teste bis ich sehe, dass meine Stringlisten richtig gefüllt sind.

[Uwe Raabe]

Zitat von Robin2k:

Wie kann ich das Löschen verhindern bzw, dass ich alle Werte von allen Sektionen in der Stringlist speichere?

Du brauchst eine weiter StringList, die du mit ReadSectionValues verwendest. Danach überträgst du das per Werte.AddStrings .

[p80286]

Delphi-Quellcode:

Sektionen := TStringList.Create;
Abschnitte := TStringList.Create;
Schlüssel := TStringlist.Create;
Werte := TStringList.Create;
for i := 0 to inilist.Count-1 do begin
    ini := TIniFile.Create(inilist.Strings[i]);
    
.....
   ini.free;
end;

Da Ini für jede inilist[i] neu gebraucht wird, oder geht's auch anders?

Gruß
K-H

[Uwe Raabe]

Übrigens: der Sinn von Abschnitte erschließt sich nicht ganz. ReadSectionValues liest immer Key-Value Paare ein.

Überhaupt bleibt deine eigentliche Absicht bei dem Code verborgen. Einzig der Kommentar am Ende bringt etwas Licht, stimmt aber nicht mit dem Code überein.