taschenrechner

[netscanner]

...genau - hab ich aber auch schon im letzten beitrag erwähnt :wink:

[Hawkeye219]

Zitat:

Zitat von netscanner

p.s.: es kann sein, dass delphi dann immer noch rummotzt...(beim ausführen)
aber spätestens wenn du die exe ohne delphi öffnest gibt es keine fehler mehr

Wäre dann nicht die Funktion TryStrToFloat die bessere Wahl?

Gruß Hawkeye

[TheAn00bis]

Es reicht die Anwendung in Delphi ohne Debugger zu starten. ;)

Schöner finde ich aber ins OnKeyPress des Eingabefeldes folgenden Code zu packen:

Delphi-Quellcode:

if not (key in ['1'..'9']) then key := #0;

Dann können nur Zahlen eigegeben werden.

[sigma]

danke leute ohne euch würde es nie funktionieren endlich glappt es danke


hab zwar noch ein problem aber mal schauen vielleicht finde ich das selber raus

[Hawkeye219]

Zitat:

Zitat von TheAn00bis

Dann können nur Zahlen eigegeben werden.

Stimmt: kein Vorzeichen, kein Dezimaltrenner, kein Backspace...

Gruß Hawkeye

[netscanner]

dann halt die if abfrage anders...

Delphi-Quellcode:

if (key in ['A'..'Z' and 'a'..'z']) then key := #0; //ungetestet

[TheAn00bis]

Zitat:

Zitat von Hawkeye219

Zitat:

Zitat von TheAn00bis

Dann können nur Zahlen eigegeben werden.

Stimmt: kein Vorzeichen, kein Dezimaltrenner, kein Backspace...

Gruß Hawkeye

Hast du im Windowstaschenrechner schonmal Operatoren gesehen? Ich vermute, dass sein Taschenrechner ähnlcih aufgebaut ist. Und er sagte selber es sollen nur Zahlen einzugeben sein.

[sigma]

also noch mal danke für eure hilfe jetzt geht es endlich :-D :-D :-D

[netscanner]

Wie hast du es jetzt gemacht ??
Über try & except oder über onkeypress ?

[sigma]

if (key in ['A'..'Z' and 'a'..'z']) then key := #0; dies funktioniert leider nicht

aber if not (key in ['1'..'9']) then key := #0;
funktioniert hoffe das reicht meinen ausbildern

das mit try & except hab ich nicht hin bekommen dafür war ich dann doch zu dumm




und nochmals danke für eure schnelle hilfe