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.

[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

[Popov]

Zitat von Dalai:

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.

Muss er nicht. Jeder Aufruf von ReadSections und ReadSection löscht die vorherige, also die alte Liste.

[Dalai]

Zitat von Popov:

Zitat von Dalai:

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.

Muss er nicht. Jeder Aufruf von ReadSections und ReadSection löscht die vorherige, also die alte Liste.

Jeder Aufruf von ReadSection(s) leert die Liste, ja. Damit spart man sich das Clear (deswegen schrieb ich ja "sofern nötig"). Dennoch ist das wiederholte Erzeugen der Listen innerhalb der Schleife unnötig und verursacht Speicherlecks, zumal es überhaupt kein zugehöriges sl.Free gibt.

MfG Dalai

[Popov]

Habe ich auch nichts anderes behauptet. Im Code wird doppelt gemoppelt, Speicherlecks erstellt und immer wieder aufs neue unnötig TStringLists erstellt.

EDIT:

Übrigens, finde nur ich das etwas sonderbar oder ist es neuerdings, also in neuen Delphiversionen möglich Umlaute in Bezeichnern zu verwenden?

Schlüssel := TStringlist.Create;

[DeddyH]

In aktuellen Delphis kein Thema, auch wenn ich so etwas nach wie vor vermeide.

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

[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