Autor Beitrag
riedere
Hält's aus hier
Beiträge: 2

WINXP, WIN7, WIN10
Delphi 10.1, Arduino
BeitragVerfasst: Fr 27.10.17 09:19 
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:

ausblenden 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);


//Writeln(v11F, 'na sowas');      /// Hier gibt es den Compiler Fehler

// Das ist der Fehler der kommt:
//[dcc32 Fehler] UxmlV11.PAS(283): E2054 Ungültiger Typ in Write/Writeln-Anweisung
//[dcc32 Fehler] UxmlV11.PAS(283): E2010 Inkompatible Typen: 'procedure, untyped pointer or untyped parameter' und 'string'


CloseFile(v11F);

showmessage('Die Datei: ' + Fv11 + ' wurde mit ' + IntToStr(memo2.Lines.Count) + ' Positionen erstellt.' );


end;


Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt
jasocul
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 6330
Erhaltene Danke: 134

Windows 7 + Windows 10
Tokyo Prof + CE
BeitragVerfasst: Fr 27.10.17 09:27 
Writeln ist für TextFile vorgesehen.
Du musst also
ausblenden Delphi-Quelltext
1:
v11F : File;					

durch
ausblenden Delphi-Quelltext
1:
v11F : TextFile;					

ersetzen.

Für diesen Beitrag haben gedankt: riedere
Gammatester
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 328
Erhaltene Danke: 101



BeitragVerfasst: Fr 27.10.17 09:31 
Benutze v11F : TextFile;

Edit: Zu spät, aber doppelt hält besser :?


Zuletzt bearbeitet von Gammatester am Fr 27.10.17 09:33, insgesamt 1-mal bearbeitet

Für diesen Beitrag haben gedankt: riedere
riedere Threadstarter
Hält's aus hier
Beiträge: 2

WINXP, WIN7, WIN10
Delphi 10.1, Arduino
BeitragVerfasst: Fr 27.10.17 09: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