HI,
wisst ihr wieso bei dem showmessage-Befehl nicht genügend parameter als Fehler angezeigt wird???
Delphi-Quellcode:
if x = Buch.Buchname then
Wahrheitswert := Wahrheitswert + 1;
end;
if wahrheitswert = 0 then
begin
rewrite(Buecher);
writeln(Buecher, Buch.Buchname);
closefile(Buecher);
AssignFile(Buchdatei, 'Bücher\' + Buch.Buchname + '.dat');
rewrite(Buchdatei);
write(Buchdatei, Buch);
closefile(Buchdatei);
end
else
showmessage:=('Buch existiert bereits');//<------ hier
end;
danke im vorraus