AV mit TStringList-Methode Add()

[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