|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Files suchen und sortieren
12. Jul 2011, 18:01
Delphi-Quellcode:
Function FileList (aPath : String) : TSearchRecList;
Begin
Result := TSearchRecList.Create;
Try
ReadDirectory (aPath, Result);
SortListByCreationData(Result);
Except
Result.Free;
Result := Nil;
Raise;
End;
End;
Ist das nicht pfui bah wegen möglicher Speicherleks?
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|