Problem mit FindFirst, FindNext und TFileStream

[himitsu]

ich denk wir haben uns in dem einem Thread geeinigt allen nur noch fertige Codes zu geben?

Am Besten hier melden sich auch noch ein paar Lehrer an und geben uns die Hausaufgaben, damit wir's einfacher haben, wenn wer fragt


Nja, mal im Ernst ... in .Name steht halt nur der Dateiname drin und sonst nix, also immer schon den Pfad mit dazupacken.

[add]

Zitat von AJ_Oldendorf:

F.Name liefert im ersten Durchlauf 1.txt und im zweiten Durchlauf 2.txt.
Sieht also richtig aus.

also quasi so

Code:

procedure TForm1.Button2Click(Sender: TObject);
    SL.SaveToFile([color=#ff0000][b]'C:\1.txt'[/b][/color]);

procedure TForm1.Button3Click(Sender: TObject);
    if FindFirst('C:\*.txt', faAnyFile, F)= 0 then
        TmpStream := TFileStream.Create([color=#ff0000][b]'1.txt'[/b][/color], fmOpenRead);