Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
12. Nov 2019
Hi Uwe Raabe
Danke für die Antwort!
Das klärt alles!
Gruss
Delbor
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
12. Nov 2019
Hi zusammen
Das ist der Ursprung in einer Hilfsklasse von TFilesearcher:
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:
procedure...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
12. Nov 2019
Hi zusammen
Eigentlich wollte ich mir nur mal eine kleinen Spickzettel schreiben und hab in der prozedur AddNewNode einige Listeneinträge meiner Reportliste hinzugefügt:
FReportlist.Add('procedure TOpenFileFrame.AddNewNode');
FReportlist.Add('Node.Text := ' + Node.Text);
FReportlist.Add('LRealName := ' + aRealName);
FReportlist.Add('aCaption := ' + aCaption);
...