Hallo,
Delphi Berlin 10.1, Win10, 32-Bit Anwendung
Ich will ein Text File schreiben (wie ich das früher immer machte).
Assign, rewrite, close ist ok.
Nur beim WriteLn da gibts Fehler - kann das nicht compilieren wenn die WriteLn Zeile aktiv ist.
Die Datei ist dann aber erstellt, klar mit 0 Länge.
Das ist der Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| procedure TFxmlV11.Button2Click(Sender: TObject);
var
Fxml,
Fv11 : String;
v11F : File;
begin
Fxml := opendialog.filename;
Fv11 := copy(Fxml,1,length(Fxml)-3) + 'V11';
SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName);
SaveDialog1.FileName := Fv11;
SaveDialog1.Execute() ;
Fv11 := SaveDialog1.FileName;
AssignFile(v11F, Fv11);
Rewrite(v11F);
CloseFile(v11F);
showmessage('Die Datei: ' + Fv11 + ' wurde mit ' + IntToStr(memo2.Lines.Count) + ' Positionen erstellt.' );
end; |
Moderiert von 
Narses: Delphi-Tags hinzugefügt
