Ja aber so hatte ich es bereits als Procedure und ich bekam ne
AV weil ich keine Instanz angelegt habe von der TStringList.
Sehr seltsam. Ich habe nun einfach meine urspruengliche Procedure genommen und nicht die Function und habe einfach nur das Files.Free ganz unten weggelassen was mir jemand hier empfohlen hat und es tut mit folgendem Aufruf.
Delphi-Quellcode:
var
I: Integer;
Files: TStringList;
begin
Memo1.Clear;
Files := TStringList.Create;
FindFile.SearchFiles('c:\', Files, '*.xml', False);
for I := 0 to Files.Count - 1 do
Memo1.Lines.Add(Files[I]);
Files.Free;
end;
Jedoch hab ich jetzt noch eine Frage... Rein zum Verstaendnis.
Wenn ich hier in der Aufrufenden Methode die TStringList genauso benenne wie die TStringList in der Procedure funktioniert das ganze, wenn ich aber sagen wir hier oben das Files in Datei : TStringList umbenenne funktioniert das ganze nicht mehr. Warum aber nicht? Warum ist sozusagen das Files hier mit dem Files aus der Procedure gleichgestellt?
Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können.
(George Lukas)