Delphi-Quellcode:
procedure TForm2.BitBtn1Click(Sender: TObject);
var
datei, datei2, datei3, datei4, datei5, datei6: textfile;
hilf, pfad: string;
begin
if fileexists (ExtractFilePath(ParamStr(0))+'einstellungen.ini') then
begin
assignfile(datei6,ExtractFilePath(ParamStr(0))+'einstellungen.ini');
reset(datei6);
readln(datei6,pfad);
closefile(datei6);
end;
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(pfad+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,pfad+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(pfad+'Eintrage.txt') then
begin
assignfile(datei2,pfad+'Eintrage.txt');
reset(datei2);
readln(datei2,hilf);
closefile(datei2);
if hilf = '' then
begin
deletefile(pfad+'Eintrage.txt');
assignfile(datei3,pfad+'Eintrage.txt');
rewrite(datei3);
writeln(datei3,edit1.Text+' '+edit2.Text);
closefile(datei);
end else
begin
assignfile(datei4,pfad+'Eintrage.txt');
append(datei4);
writeln(datei4,edit1.Text+' '+edit2.Text);
closefile(datei4);
end;
end else
begin
assignfile(datei5,pfad+'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;
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 "I/0 Error 32". (oder so ähnlich)
Was habe ich denn jetzt schon wieder falsch gemacht ...
In der Datei einstellungen.ini steht: C:\WINDOWS\DESKTOP\VERSION 3\
Trotzdem noch mal im Anhang ...
