Editbox funktion gesucht

[J.P.]

Ich würde das so, total simpel und ohne andere Prozedure machen,
einfach mit nem try...except block.

Delphi-Quellcode:

procedure TForm1.Edit3Change(Sender: TObject); 
begin 
try
 if strtoint(edit3.text)=x then           //x ist hier der zahlenwert, mit dem verglichen werden soll... 
   label7.Caption:='Richtig!' 
 else 
   label7.Caption:='?'; 
except //Falls die Fehlermeldung kommt, wird label7 auch auf '?' gesetzt
 label7.Caption:='?';
end;
end;

vll ein ganz klein wenig umständlich, aber auch nur ein bischen.


edit: Delphi Syntaxfehler meinerseits berichtigt.