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