Zitat von
Thargeon:
Delphi-Quellcode:
type
TP =
Record
Name :
String[20];
VName :
String[20];
Straße :
String;
TelNr : Integer;
end;
...
Button um die Datei zu öffnen + nur zu schreiben:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
begin
assignfile (f,Edit5.Text) ;
rewrite(f)
end;
"Straße" halte ich wegen des ß für nicht so gelungen. (auch mit 16Bit Charakters und UTF8!)
Über die 20 Stellen für Name und Vorname kann man streiten, aber der Straße würde ich auch eine Beschränkung verpassen ([80]?)
mit "rewrite(f)" ist die Datei leer! (oder überschrieben)
Und überhaupt für assign eine Button, für read einen Button, für close einen Button, das ist nicht so toll!
lieber so:
Delphi-Quellcode:
assignfile(f,meinedatei);
reset(f);
seek(f.....);
read(f,...);
close(f);
Gruß
K-H