AV mit TStringList-Methode Add()

[Mackhack]

Zitat von Mordilion:

Wie mein vorschreiber schon erwähnte, wäre es gut zu wissen ob du eine Instanz erzeugst.

Wenn nicht hilft das vielleciht weiter?

Delphi-Quellcode:

  // Dann erzeugen wir mal die Instanz
  Files := TStringList.Create;
  try
    {...}
    repeat
      if (wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> FILE_ATTRIBUTE_DIRECTORY ) then
        if ( IsLanguageFile(aRoot + wfd.cFileName, '<Languages>') ) then
          Files.Add(aRoot + wfd.cFileName);
    until FindNextFile(hFile, wfd) = False; 
    {...}
  finally
    // Wenn man was erzeugt, muss es auch weider freigegeben werden!
    // Aber erst nachdem man die Daten verarbeitet hat, da sie sonst weg sind!
    Files.Free
  end;

Gruß
Mordi

Es ist das Files.Free das mir die TStringList leer raeumt. Aber wo sonst sollte denn das Files.Free hin wenn nicht an das Ende der Procedure?

Ich habe das ganze jetzt mal in eine Function gepackt mit dem Rueckgabewert TStringList. Jedoch sieht das irgendwie nicht wirklich richtig aus wenns auch funktioniert.

Delphi-Quellcode:

var
  I: Integer;
begin
  for I := 0 to FindFile.SearchFiles('c:\', '*.xml', False).Count - 1 do
    Memo1.Lines.Add(FindFile.SearchFiles('c:\', '*.xml', False)[I])
end;