Ok Danke euch!
Habe es jetzt ein bischen anders versucht.
Und zwar versuche ich jetzt direkt die Daten in einem
File zu speichern aber ich weiss nich wie ich den
Dateizeiger eine Stelle weiter bewege nachdem ich die
Datei beschrieben habe bzw weiss ich nicht ob die Daten bei mir
Überhaupt gespeichert werden.
Könnt ihr mir da helfen?
Danke!
Joe.Fresh
Code:
hilf:=edit1.text;
if edit1.text=''
then showmessage ('Bitte erst den Namen eingeben')
else listbox1.items.add(hilf);
hilf1:=listbox1.items.count;
assignfile(speicherdatei,'telefonbuch.dat');
{$I-}
reset (speicherdatei);
{$I+}
if ioresult <>0 then rewrite (speicherdatei);
with telebuch do
begin
vorwahl:=edit2.text;
nummer:=edit3.text;
name:=edit1.text;
email:=edit4.text;
write(speicherdatei);
hilf2:=FilePos(speicherdatei);
if hilf2+1=hilf1 then showmessage ('Datei gespeichert');
//edit5.text:= inttostr (hilf2);
closeFile(speicherdatei);