Werte aus einer Ini Datei Lesen funktioniert nicht so ganz

[mkinzler]

Poste noch einmal den aktuellen Code

[Back2Code]

Hier:

Delphi-Quellcode:

procedure TFrmHpt.Import1Click(Sender: TObject);
var Pfad: string;
    IniPfade: TStringlist;
begin
  IniPfade := TStringList.Create;
  processing := True;
  try
  Application.CreateForm(TFrmLoading, FrmLoading);
  SelectDirectory('Ordner auswählen', '' ,Pfad);
  FrmLoading.Show;

  GetFilesInDirectory(Pfad, '*.ini', IniPfade, True, True );

  OpenIniAndFillOutDB(IniPfade);

  FrmLoading.Hide;
  finally
    processing := False;
    IniPfade.Free;
  end;
end;

// readSections = alle sektionen auslesen // readsection = bestimmte sektion auslesen
procedure TFrmHpt.OpenIniAndFillOutDB(inilist: TStringList);
var i, ii, jj, j, x, Value, AbschnittsZähler: Integer;
    Modul, Abschnitt, fullFileName: String;
    ini: TIniFile;
    Sektionen, Werte, Schlüssel, Abschnitte : TStringList;
begin
  //ShowMessage((inilist.Strings[2]));
  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;
    fullFileName := inilist.Strings[i];
    Modul := ExtractFileName(fullFileName);  // Dateiname aktueller Ini i z.b hphabirgendwas.ini;
    AbschnittsZähler := INISectionsCount(fullFileName);  // Abschnittszäher = Wie viele Abschnitte gibt es in der aktuellen Ini
    Ini.ReadSections(Sektionen);  // Jetzt sind alle Sektionen in der StringList Sektionen

    //Alle Abschnitte in die Stringlist Abschnitte packen
    for j := 0 to Sektionen.Count-1 do  // Schleife und durch jede Sektion durchgehen
      begin
        ini.ReadSection(Sektionen.Strings[j], Abschnitte);
      end;

    // Alle Werte mit Abschnitten davor in die Stringlist Werte packen
    for jj := 0 to Abschnitte.Count-1 do
      begin
        ini.ReadSectionValues(Sektionen.Strings[jj], Werte);
      end;

  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');

  end;


  // Jeweile Ini von inilist.Strings[i] öffnen. Sektionen / Values / Modulname holen und in Datenbank schreiben.
  // Überprüfen ob bereits vorhanden, wenn nicht dann eintragen.
end;

[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

[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