Hallo,
in folgendem Programm wird einfach die Ausgabeschleife am Ende Ignoriert! Und ich weis net wie ich das abstellen soll:
Delphi-Quellcode:
procedure TForm1.BErzeugenClick(Sender: TObject);
var
Dateinamen: array of string;
Dir: string;
SearchRec: TSearchRec;
i, j: integer;
begin
Dir := LQuelle.caption;
if FindFirst('c:\*.*', faAnyFile, SearchRec) = 0 then
try
i := 0;
SetLength(Dateinamen, 1);
Dateinamen[0] := SearchRec.Name;
while FindNext(SearchRec) = 0 do
begin
i := i + 1;
SetLength(Dateinamen, Length(Dateinamen) + 1);
Dateinamen[i] := SearchRec.Name;
end;
finally
FindClose(SearchRec);
end;
for j := Length(Dateinamen) to 0 do
MSchleife.lines.add(Dateinamen[j]);
end;
Über einen guten Rat freue ich mich,
gruß
billi
[edit=r_kerber]Code durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]