Lehre Zeichenkette prüfen???

[Aenogym]

an der stelle, wo die meldungen ausgegeben werden, schriebst du einfach soetwas:

Delphi-Quellcode:

{...}
var
  error: boolean;
{...}

if not error then
begin
  showmessage('fehler');
  error := true;
end;

das heißt: wenn die meldung einmal ausgegeben wurde, ist error = true. und wenn error = true, dann wird die nächste meldung nicht mehr ausgegeben

Aenogym