Fehlermeldung selber schreiben

[Ene]

Hi!

Ich habe schon das Forum durchsucht und leider nichts dagzu gefunden.
Ich wollte eine Fehlermeldung schreiben (ein alert-Fenster).
Diese Fehlermeldung soll "sagen", dass die Eingabe von Buchstaben nicht erlaubt ist.
Könntet ihr mir hier evtl. weiterhelfen?

Gruß Ene

[SirThornberry]

eine Messagebox wäre das passende:

Delphi-Quellcode:

MessageBox(parentHandle, 'DeinFehler', 'MsgBoxÜberschrift', MB_OK or MB_ICONERROR);

[Christian Seehase]

Moin Ene,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Das hat jetzt zwar nichts mit Deine Frage zu tun, fällt mir aber bei Deiner Problembeschreibung ein:

Mir gefällt es besser, wenn man ungültige Eingaben erst gar nicht zulässt, anstatt hinterher eine Fehlermeldung zu bringen.

[Ene]

Ja so hatte ich es mir anfangs auch gedacht, aber ich bin in Delphi noch nicht so fit :?
Könntest du mir evtl. verraten wie ich sowas machen könnte?
Ich würde es mit einer if-Anweisung machen aber was müsste ich den dann als Bedingung
schreiben? Ich hätte an folgendes gedacht:

Delphi-Quellcode:

bio_vor:= StrToInt(Edit2.Text);
bio_h:= StrToInt(Edit4.Text);
bio_kosten:= StrToInt(Edit6.Text);
ergebnis_b:= (bio_kosten - bio_vor)/bio_h;

if ergebnis_b = ??? then

Was müsste ich nun anstatt den 3 Fragezeiche schreiben?
Gibt es etwas wo das ganze alphabet vertreten ist?

[SirThornberry]

du könntest im OnKeyPress prüfen ob eine Zahl eingegeben wurde, ansonsten verwirfst du die Eingabe

Delphi-Quellcode:

if pos(key, '0123456789') < 1 then
  key := #0;

[leddl]

Was Christian meinte war, daß du bereits bei der Eingabe (OnKeyPress) in deine Editfelder nur Zahlen zulässt:

Delphi-Quellcode:

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

Solltest du auch Kommazahlen benötigen wird die Abfrage natürlich etwas komplizierter, da du ja auch noch andere Dinge prüfen mußt.

[Ene]

Diesen Befehl verstehe ich nur, wo muss ich das ganze nun eintragen?

[dahead]

Zitat:

Zitat von SirThornberry

du könntest im OnKeyPress prüfen

das ist die antwort auf deine frage. Klick auf Events oder Ereignisse im Objekt-Inspektor und doppelt auf das Feld "OnKeyPress".

[Ene]

Hey supi :D
Es hat geklappt. Mal wieder was dazu gelernt.
Danke euch!!! :hello: