Boolean.ToString

[Delbor]

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