taschenrechner

[sigma]

Hallo ich bin neu hier und ich habe ein Problem!

Ich soll einen Taschenrechner programmieren und er ist gar nicht so schlecht dafür das ich erst angefangen habe mit delphi zu programmieren,
nur jetzt hab ich ein Problem ich soll eine Prüfung auf Zahlen und Buchstaben machen aber ich hab keine ahnung wie ich das machen soll kann mit vielleicht jemand helfen

als mal im vorraus danke

[EDatabaseError]

Schau mal in der Forensuche nach

Herzlich Willkommen in der DP

[sigma]

hab ich schon aber ich werde daraus nicht schlau
hab schon einpaar sachen gefunden aber wenn ich die eingefügt habe und sie abgeändert habe damit sie bei mir laufen sollten hat es doch nie funktioniert

[netscanner]

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

Delphi-Quellcode:

try 
integervariable := strtoint(edit1.text);
except
showmessage('Bitte nur zahlen eingeben');
end;

[sigma]

es soll keine Buchstabeneingabe erfolgen
es sollen nur zahlen erlaubt sein

soblad ich Buchstaben eingebe und dann auf eine zahl klicke bekomme ich eine fehlermeldung und die soll ich abfangen
aber ich hab keine idee wie ich das machen soll

[netscanner]

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:

Delphi-Quellcode:

try
x := strtofloat(edit1.text);
except
showmessage('Bitte nur zahlen eingeben');
end;

ersetzten...

Ein Buchstabe ist keine Zeichen aus dem Real Zahl bereich...daher bringt er dir ne fehlermeldung.
Der Befehl oben überprüft erst, ob es geht...wenns net geht bringt er eine meldung und führt den x := strtofloat(edit1.text); gar nicht erst aus....

[sigma]

ich weis es ist ne sau dumme frage aber wo soll ich das ersetzen hab mein Programm mal durchsucht aber diese zeile nicht gefunden
x := strtofloat(edit1.text);

ich bin wohl echt zu dumm um das hin zu bekommen

[netscanner]

aua

Die zeile heißt ja auch: x := StrToFloat(Zahl);

steht in jedem deiner zahlen buttons ganz unten....

also nochmal der code:

Delphi-Quellcode:

try
x := strtofloat(zahl);
except
showmessage('Bitte nur zahlen eingeben');
end;

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

[sigma]

hab doch gesagt bin zu doof dafür hab das jetzt eingefügt und dann kommt die meldung

Im Projekt Taschenrechner.exe ist ein Exception der Klasse EConvertError aufgetrette.
Meldung "T" ist kein gültiger Gleitkommawer.Prozeß wurde angehalten


was kann ich machen damit diese Fehlermeldung nicht mehr kommt

[EDatabaseError]

die exe ohne delphi starten wenn das try except drin ist.