Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by netscanner,
27. Jun 2006
Wie hast du es jetzt gemacht ??
Über try & except oder über onkeypress ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by netscanner,
27. Jun 2006
dann halt die if abfrage anders...
if (key in ) then key := #0; //ungetestet
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by netscanner,
27. Jun 2006
...genau - hab ich aber auch schon im letzten beitrag erwähnt :wink:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by netscanner,
27. Jun 2006
aua :)
Die zeile heißt ja auch: x := StrToFloat(Zahl);
steht in jedem deiner zahlen buttons ganz unten....
also nochmal der code: try
x := strtofloat(zahl);
except
showmessage('Bitte nur zahlen eingeben');
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by netscanner,
27. Jun 2006
s.o. das ist der lösungsansatz dazu....
wie ich sehe list du in ne real variable...
Der Fehler kommt bei der codezeile x := strtofloat(edit1.text);
Das einfach durch:
try
x := strtofloat(edit1.text);
except
showmessage('Bitte nur zahlen eingeben');
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by netscanner,
27. Jun 2006
für was soll dir prüfung denn sein?
um zu überprüfen, ob das zeichen überhaupt in eine integer, real o.ä. variable gelesen werden kann?
Dann würde ich try & except benutzen
try
integervariable := strtoint(edit1.text);
except
showmessage('Bitte nur zahlen eingeben');
end;