Zitat von
3_of_8:
Aaalso...
Delphi-Quellcode:
var a, b: Integer;
begin
if not (trystrtoint(edit1.text, a) and trystrtoint(edit1.text, b)) then
showmessage('Bitte geben sie gültige Zahlenwerte ein.')
else
showmessage(inttostr(a+b));
end;
Das bedeutet, dass die Zahlenwerte der Edits addiert werden, wenn sie gültig sind. Ansonsten wird eine Fehlermeldung ausgegeben.
CheckEdit rufst du am besten in OnChange auf und machst dann irgendne Spielerei wie das Edit rot färben, wenn es keinen gültigen Wert enthält.
Ich nehme an, dass vor das 2. trystrtoint auch noch ein Komma soll!?
Wenn ich es genau so mache, bekomme ich in dem PopUp immer die Zahl die in Edit1 steht, ist dort ein Buchstabe, dann Word 0 angezeigt. Die Fehlermeldung kommt nie...
Und: Geht das ganze auch mit 'real'-Zahlen? und mit...tofloat und floatto... ?
mfG
PS: ich probier jetzt deine 1. Lösung...
Edit: Danke Klaus!