Hallo,
folgendes Problem: ich will aus einem Ordner alle *.pas Files durchlaufen
und Teilstrings herauskopieren.
--------------CODE ANFANG-----------------------------------
begin
str_path:='\\Ntserver\Delphi-Klassen\Windows\';
Findfirst(str_path+'*.pas',faAnyFile,SearchRec);
meo_such.Lines.Clear;
str_nummer:=1;
while (FindNext(SearchRec)=0) do
begin
meo_such.Lines.Add(SearchRec.Name);
FindNext(SearchRec);
INC(str_nummer);
end;
showmessage(inttostr(str_nummer));
FindClose(SearchRec);
end;
--------------CODE ENDE-----------------------------------
das Problem ist, daß nicht alle Files gefunden werden, von 19 Stück
werden mit nur 10 angegeben und ich finde den Fehler einfach nicht.
Ich bin für jede Hilfe dankbar!
Mit besten Grüßen,
Stefan Walter
folgendes Problem: ich will aus einem Ordner alle *.pas Files durchlaufen
und Teilstrings herauskopieren.
--------------CODE ANFANG-----------------------------------
begin
str_path:='\\Ntserver\Delphi-Klassen\Windows\';
Findfirst(str_path+'*.pas',faAnyFile,SearchRec);
meo_such.Lines.Clear;
str_nummer:=1;
while (FindNext(SearchRec)=0) do
begin
meo_such.Lines.Add(SearchRec.Name);
FindNext(SearchRec);
INC(str_nummer);
end;
showmessage(inttostr(str_nummer));
FindClose(SearchRec);
end;
--------------CODE ENDE-----------------------------------
das Problem ist, daß nicht alle Files gefunden werden, von 19 Stück
werden mit nur 10 angegeben und ich finde den Fehler einfach nicht.
Ich bin für jede Hilfe dankbar!
Mit besten Grüßen,
Stefan Walter
Comment