Hya,
nun hab ich den selben Psydo fehler bei meiner FindFile Funktion wie bei der FindPath bzw FindDir funktion.
Er such und er findet. Jedoch wird der fund nur in meine listbox ausgegeben - Result wird nicht gefüllt.
Könnte es einer mal testen ob es bei ihm läuft ich schnall nicht warum nicht geht.
Delphi-Quellcode:
function TForm1.FindFile(ToBeFound, ASearchPath : string) : string;
var
ASearchRec : TSearchRec;
begin
Result := '';
if ASearchPath[Length(ASearchPath)] <> '\' then
ASearchPath := ASearchPath + '\';
if FindFirst(ASearchPath + '*.*', faAnyFile, ASearchRec) = 0 then
begin
repeat
if CompareText(ToBeFound, ASearchRec.Name) = 0 then
begin
ListBox1.Items.Add(ASearchPath + ASearchRec.Name);
Result := ASearchPath;
Break;
end;
until FindNext(ASearchRec) <> 0;
end;
FindClose(ASearchRec);
if FindFirst(ASearchPath + '*.*', faDirectory, ASearchRec) = 0 then
begin
repeat
if ((ASearchRec.Attr and faDirectory) = faDirectory) and
(ASearchRec.Name <> '..') and
(ASearchRec.Name <> '.') then
begin
FindFile(ToBeFound, ASearchPath + ASearchRec.Name);
end;
until FindNext(ASearchRec) <> 0;
end;
FindClose(ASearchRec);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FindFile(Edit1.Text,'E:\'));
end;
in der Listbox wird der Pfad mit der gefundenen file sehr schön angezeigt aber nicht in der messagebox
da Result = '' ist anstatt das da ASearchPath drin ist
Greetz
Master_BB
Zitat
Baum-Darstellung
