Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
procedure Tform1.edit1keypress <br>
var i:longint;<br>
begin<br>
if not((StrScan('0123456789,',Key) <> nil) or (Key = Char(VK_BACK))) then begin<br>
Key := #0;<br>
end;<br>
for i:=0 to length(EDmenge.text) do begin<br>
if (copy(EDmenge.text,i,1) = ',') and (key=',') then key:=#0;<br>
end;<br>
ein<br>
ein. dann kann der benutzer nur zahlen und ein komma eingeben, du hast also in jedem falle eine zahl
ich noch mal ;-).<br>
Habe dir ganz vergessen die Bedeutung für #13 und #8 zu erklären!<br>
Das hole ich hiermit nach. Außer Zahlen kannst du noch die Returne-Tast betätigen und die Backspace-Taste, falls man sich mal vertippt hat. Ansonsten wird eine Fehlermeldung (typische Windows-Fehlermeldung ;-) ausgegeben).
Comment