Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
27. Jun 2006
function TProgramm.GetFiles() : String;
var s : TSearchRec;
i : Integer;
begin
if FindFirst(GetPath + '*.*', faAnyFile, s) = 0 then
begin
i:=0; // hier setzt Du die Anzahl auf 0 obwohl schon eine Datei gefunden wurde
repeat
Inc(i);
until FindNext(s) <> 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
27. Jun 2006
var
searchResult : TSearchRec;
i : Integer;
begin
i:=0;
// Try to find regular files matching *.* in the current dir
if FindFirst('*.*', faAnyFile, searchResult) = 0 then
begin
repeat
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
27. Jun 2006
Hallo,
auf die Schnelle fällt mir nur das Zählen und findfirst und findnext ein.
Grüße
Klaus