Entwickler-Ecke
Dateizugriff - WriteLn was mache ich falsch
riedere - Fr 27.10.17 10:19
Titel: WriteLn was mache ich falsch
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
jasocul - Fr 27.10.17 10:27
Writeln ist für TextFile vorgesehen.
Du musst also
durch
ersetzen.
Gammatester - Fr 27.10.17 10:31
Benutze v11F : TextFile;
Edit: Zu spät, aber doppelt hält besser :?
riedere - Fr 27.10.17 10:32
Hurra hurra - es geht.
Teschekkür ederim wie man hier sagt (bin grad in der Türkei - aber arbeite per RDP in der Schweiz auf meinem PC - läuft UFB)
Köszönöm
Spaciba
Grazie
Gracias
Kap kuhn kap
xie xie
efcharisto
merci
Thanks
- und im Original - Danke Erich
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!