Naja so recht hilft es mir nicht weiter.Ich hab jetzt auch schon mal versucht alleine die Procedure zuschreiben,er legt auch schon die Datei an wo es rein geschrieben werden soll,aber da steht dann nichts drin.
Könnte ja mal schauen, ob ich da irgendeinen Fehler gemacht habe und mir dann bescheid geben.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
| procedure TForm4.SpeicherSClick(Sender: TObject); var F: File of TSchuelerdaten; begin VornameS.Text:=dat.Vorname; NameS.Text:=dat.Name; KlasseS.Text:=dat.Klasse; TutorS.Text:=dat.Tutor; try AssignFile(F,'C:\Variable.txt'); ReWrite(F); Write(F,dat); finally CloseFile(F); end; end; |
Danke!
TSchau
Moderiert von
raziel: Delphi-Tags hinzugefügt.