Bei StringListe Listenindex überschreitet das Maximum

[DeddyH]

Ich habe das Ganze mal aufgeteilt, so dass keine Speicherlecks mehr entstehen sollten. Ungetestet:

Delphi-Quellcode:

procedure TFrmHpt.ProceedSectionValues(Ini: TIniFile; const Section, IniName: string);
var
  SectionValues: TStringlist;
  i: integer;
  StrippedIniName: string;
begin
  StrippedIniName := ChangeFileExt(ExtractFileName(IniName), '');
  SectionValues := TStringlist.Create;
  try
    Ini.ReadSectionValues(Section, SectionValues);
    for i := 0 to SectionValues.Count - 1 do
      TransferToDB(StrippedIniName, Section, SectionValues.Names[i]);
  finally
    SectionValues.Free;
  end;
end;

procedure TFrmHpt.ProceedSections(Ini: TIniFile; const IniName: string);
var
  Sections: TStringlist;
  i: integer;
begin
  Sections := TStringlist.Create;
  try
    Ini.ReadSections(Sections);
    for i := 0 to Sections.Count - 1 do
      ProceedSectionValues(Ini, Sections[i], IniName);
  finally
    Sections.Free;
  end;
end;

procedure TFrmHpt.EditingInis(IniPfade: TStrings);
var
  i: integer;
  ini: TIniFile;
begin
  for i := 0 to IniPfade.Count - 1 do
    begin
      Ini := TIniFile.Create(IniPfade[i]);
      try
        ProceedSections(Ini, IniPfade[i]);
      finally
        ini.Free;
      end;
    end;
end;

[p80286]

Das ist doch nicht dein Ernst?
oder hab ich was übersehen?

Delphi-Quellcode:

procedure TFrmHpt.ProceedSections(Ini: TIniFile; const IniName: string);
var
  Sections: TStringlist;
  i: integer;
begin
  Sections := TStringlist.Create;
  try
    for i := 0 to Sections.Count - 1 do   { sections ist leer! }
      ProceedSectionValues(Ini, Sections[i], IniName);
  finally
    Sections.Free;
  end;
end;

Da fehlt doch noch ein ReadSections

Gruß
K-H

[Sir Rufo]

Aber die Speicherlecks sind weg und die Performance wurde um 1000% verbessert

[DeddyH]

Wo?

Kann doch mal passieren, wenn man Code im Editor tippt.

[hoika]

Hallo,

warum ist Sections nicht lokal definiert ?
Außerdem erzeugst du in der Schleife deine Klassen (Ini, Sections ...) x mal,
gibst sie aber außerhalb der Schleife nur 1 mal frei.


Heiko

[TiGü]

Da hier eh viel zu refaktorisieren ist, schau doch bitte bei der Gelegenheit mal die Klasse TMemIniFile an.

[Furtbichler]

Wo ist denn der Unterschied zwischen TIniFile und TMemIniFile (außer, das letzere die INI-Datei im Speicher hält)?

[TiGü]

Hast du jetzt eine rhetorische Frage mit Antwort gepostet?