Editfelder für Buchstaben sperren

[naudoc]

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!