Nachtrag:
Delphi-Quellcode:
procedure TForm2.BitBtn1Click(Sender: TObject);
var
datei, datei2, datei3, datei4, datei5: textfile;
hilf: string;
begin
if (combobox1.text='')or
(edit1.text='') or
(edit2.text='')then
begin
showmessage('Bitte geben Sie Anrede, Vor - und Nachnamen an, um den Datensatz speichern zu können.');
end else
begin
if fileexists(edit1.text+' '+edit2.text+'.txt') then
begin
showmessage('Achtung! Es existiert schon ein Eintrag unter diesem Namen! Abbruch ...');
form2.visible:=false;
form1.Visible:=true;
combobox1.Text:='';
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='';
edit10.text:='';
memo1.Text:='';
end else
begin
assignfile(datei,edit1.text+' '+edit2.text+'.txt');
rewrite(datei);
writeln(datei,combobox1.text);
writeln(datei,edit1.text);
writeln(datei,edit2.text);
writeln(datei,edit3.text);
writeln(datei,edit4.text);
writeln(datei,edit5.text);
writeln(datei,edit6.text);
writeln(datei,edit7.text);
writeln(datei,edit8.text);
writeln(datei,edit9.text);
writeln(datei,edit10.text);
writeln(datei,memo1.text);
closefile(datei);
end;
if fileexists('Eintrage.txt') then
begin
assignfile(datei2,'Eintrage');
reset(datei2);
readln(datei2,hilf);
closefile(datei2);
if hilf = '' then
begin
deletefile('Eintrage.txt');
assignfile(datei3,'Eintrage.txt');
rewrite(datei3);
writeln(datei3,edit1.Text+' '+edit2.Text);
closefile(datei);
end else
begin
assignfile(datei4,'Eintrage.txt');
append(datei4);
writeln(datei4,edit1.Text+' '+edit2.Text);
closefile(datei4);
end;
end else
begin
assignfile(datei5,'Eintrage.txt');
rewrite(datei5);
writeln(datei5,edit1.Text+' '+edit2.Text);
closefile(datei5);
end;
combobox1.Text:='';
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='';
edit10.text:='';
memo1.Text:='';
form2.visible:=false;
form1.visible:=true;
end;
end;
So! Jetzt sieht das ganze schon besser aus! Trotzdem kommen immer wieder Fehlermeldungen!
1. Wenn Eintrage.txt nicht existiert, wird sie ganz korrekt erstellt. So weit, so gut ...
2. Wenn aber die Datei schon angelegt ist und einige Einträge drin sind, kann er die Datei nicht finden.
3. Wenn aber die Datei schon angelegt ist und noch keine Einträge drin sind, kann er die Datei nicht finden.
Bei 2. und 3. steht dort "File not found".
Vielleicht könnt ihr mir jetzt weiterhelfen