Hi zusammen
Das ist der Ursprung in einer Hilfsklasse von TFilesearcher:
Delphi-Quellcode:
class function TSearchRecAnalyzer.IsDirectory(const
SearchRec: TSearchRec): Boolean;
begin
Result := TSearchRecAnalyzer.ContainsAttributes(SearchRec, faDirectory);
end;
Diese Prozedure wird aufgerufen, wenn TFileSearcher eine Datei oder einen Ordner gefunden hat:
Delphi-Quellcode:
procedure TOpenFileFrame.FileSearcher1MatchFound(Sender: TObject;
const Path: string; const FileInfo: TSearchRec);
var Complettpath, J: String;
begin
if Assigned(FCurrentNode) then
begin
Complettpath := IncludeTrailingPathDelimiter(Path) + FileInfo.Name;
AddNewNode(FCurrentNode, FileInfo.Name, Complettpath,TSearchRecAnalyzer.IsDirectory(FileInfo));// <<<=
FReportlist.Add('-------------------');
FReportlist.Add('procedure TOpenFileFrame.FileSearcher1MatchFound');
FReportlist.Add('----------------');
end;
end;
in der Prozedur AddNewNode werden dem erzeugten Knoten schliesslich die Werte der Datei übergeben, die er repräsentiern soll:
Delphi-Quellcode:
New(NameRec);
NameRec^.RealName := aRealName;
NameRec^.Caption := aCaption;
NameRec^.IsDirectory := aIsdirectory;
NameRec^.IsDB := LIsDB;
Node.Data := NameRec;
Gruss
Delbor