hi,
Quelltext:
TYPE Speicherdaten = String[20]
VAR dat:FILE OF Speicherdaten; betrag,empfaenger,absender : Speicherdaten;
auf Speichern-Button klicken:
AssignFile(dat,'save\'+readfilename.text+'.dat');
Rewrite(dat);
Seek(dat,0); write(dat,absender);
Seek(dat,1); write(dat,empfaenger);
Seek(dat,2); write(dat,betrag);
AUF LADEN-BUTTON KLICKEN:
RESET(dat);
Seek(dat,0); read(dat,absender); readname1.Text:=absender; <-- funktioniert nicht
Seek(dat,1); read(dat,empfaenger); readname2.Text:=empfaenger; <--funktioniert auch nicht
Seek(dat,2); read(dat,betrag); readbetrag.Text:=betrag; <--- FUNKTIONIERT
!!!Bei ReadBetrag, ReadName1,... handelt es sich um solche TEdit dinger!!!
Komisch oder??? Kann mir da jemand zufällig weiterhelfen? Danke schonma im Voraus
Gruß KoRny Boy
