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:
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 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
Es hat geklappt. Mal wieder was dazu gelernt.
Danke euch!!!