Überprüfen, ob Variable einem gewissen Typ entspricht

[MarquiseDeSade]

Hallo

Ich habe folgendes Problem:

Ich programmiere einen Taschenrechner. Wie kann ich es unterbinden, dass der Benutzer mehrmals die Kommataste drücken darf. Ich dachte da an eine Art überprüfung:

If edit1.text = real then.... Aber wahrscheinlich geht das so nicht. Auf den Punkt gebracht, möchte ich die Eingabe in Edit1 auf ein Komma überprüfen, und nur wenn keines vorhanden ist, darf der User die Kommataste drücken.

Hat jemand einen Denkanstoß ?

Danke

[Apollonius]

Es gibt mehrere Möglichkeiten: Ich denke da an val(hat einen Fehlerparameter) und TryStrToFloat, außerdem natürlich die unsaubere Variante mit try..except.
Hoffe geholfen zu haben
Apollonius

[MarquiseDeSade]

Da ich Delphi-Anfänger bin, glaube ich, dass ich noch nicht weiter bin. Ich habe mir TryStrToFloat und val mal in der Hilfe angesehen, aber geht es dabei nicht eher darum, Eingabefehler des Users so umzuändern, dass ich brauchbar damit rechnen kann ?

Ich suche aber eine Möglichkeit, die es gänzlich dem User untersagt, eine falsche Eingabe zu tätigen. Vielleicht wäre auch einfach ein simples Beispiel für mich möglich ??

danke

[Apollonius]

Du versuchst einfach, die Benutzereingabe mit TryStrToFloat in einen Float umzuwandeln. Wenn die Funktion false zurückgibt, weißt du, dass die Benutzereingabe ungültig ist. Dann kannst du z.B. eine Messagebox zeigen lassen.

Wenn du ständig überprüfen willst, dann solltest du obige Testroutine in das onChange deines Edits schreiben.

[Neutral General]

Hi,

Wie wärs damit?

Delphi-Quellcode:

if pos(',',Edit1.Text) = 0 then
  ManDarfKommaSetzen;

Das find ich einfacher als TryStrToFloat oder so.

Gruß
Neutral General

[dominikkv]

du könntest bei jedem onKeyPress des Edits schauen ob schon ein ',' vorhanden ist (zB mit Pos), wenn ja einfach key := #0 setzen

[SirThornberry]

Zitat von dominikkv:

du könntest bei jedem onKeyPress des Edits schauen ob schon ein ',' vorhanden ist (zB mit Pos), wenn ja einfach key := #0 setzen

nicht so toll! Angenommen im Edit steht "3," dann kann ich den Teil nach dem komma schon nicht mehr eingeben

[Apollonius]

*grummel*
Aber damit ignoriert man die Einstellung für den DecimalSeparator, und außerdem kann man mit TryStrToFloat auch gleich in einem Aufwasch die Überprüfung machen, dass nur Zahlen vorkommen.
Wie arbeitet denn der Taschenrechner? Schreibt man alles in eine Zeile (3+5*6) oder gibt man erst eine Zahl ein, bei Eingabe eine Rechenzeichens wird das Edit gelöscht, nächste Zahl...
Bei ersterer Methode ist TryStrToFloat nämlich hinfällig, die Überprüfung auf mehrere Kommata aber auch

[dominikkv]

Zitat von SirThornberry:

Zitat von dominikkv:

du könntest bei jedem onKeyPress des Edits schauen ob schon ein ',' vorhanden ist (zB mit Pos), wenn ja einfach key := #0 setzen

nicht so toll! Angenommen im Edit steht "3," dann kann ich den Teil nach dem komma schon nicht mehr eingeben

stimmt auch wieder xD
allerdings geht ja noch

Delphi-Quellcode:

if (key = ',') and (Pos(',', Edit1.Text) <> 0) then
  key := #0;

[SirThornberry]

das geht. Allerdings sollte man beachten das man auch per "Strg + V" und per Kontextmenü dinge aus der zwischenablage einfügen kann und das sollte man dann im OnChange korrigieren.