hi!bis jetzt ist alles glatt gelaufen
aber beim versuch alles zu speichern komm
die meldung dass die datei nicht erstellt werden kann.
wieso das?
hier ein teil vom quelltext.
danke
dominik
Code:
type
tdatei = file;
var speicher :tdatei;
procedure TForm1.Button1Click(Sender: TObject);
var hilf,hilf2,hilf3,hilf4:string;
begin
//hinzufügen
hilf:=edit1.text;
hilf2:=edit2.text;
hilf3:=' - ';
hilf4:=edit3.text;
if edit1.text=''
then showmessage ('Bitte erst den Namen eingeben')
else listbox1.items.add(hilf+hilf3+hilf2+hilf3+hilf4);
assignfile(speicher,'speicher.dat');
{$I-}
Reset (speicher);
{$I+}
if ioresult<>0 then rewrite(speicher);
listbox1.items.savetofile ('speicher.dat');
closefile(speicher);
end;
und hier der button der dann die listbox aus dem file lädt.
Code:
procedure TForm1.Button4Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('speicher.dat');
end;