Hi,
warum kracht es hier denn mit einer
AV in der Files.Add(...) Zeile? Files ist vom Typ TStringList
Delphi-Quellcode:
...
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;
...
Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können.
(George Lukas)