Bei keiner Eingabe ins Edit Feld -> programmstop und ...

[HappyTreeFriend]

Hi.. ich Programmiere grade etwas..
Es geht um folgendes.

Ich hab jetzt da ein Edit Fenster in das ich nur Zahlen und Komma eingeben kann, hab ich begrenzt durch
if not (key in [#8, #9,#44, #48 .. #57]) then key:=#0;

soweit so gut.

Aber wenn der User einfac nichts eingibt, also das Feld leer bleibt, soll eine Aufforderung kommen (Showmessage) und dann soll der Focus auf das betreffende Edit geetzt werden, wodrauf er eine neue Eingae machen muss.


Ist wahrscheinlich ganz einfach aber ich komme nicht drauf und gesucht hab ich auch danach..

Mein spezielles Prob ist, dass er durch
if (edit2.text='')
then FehlermeldungUndFocus;
else Machweiter;

das gewünschte macht, jedoch fährt er dann normal weiter in der Rotine "button Klick", d.h. er geht zur nächsten if anweisung weiter...

hier mal die ganze Prozedur..

Zitat:

procedure TForm7.Button2Click(Sender: TObject);
begin
if (edit2.text='')
then edit2.setfocus

else w[2]:=StrToFloat(Edit2.text);


if w[2]=w[1]*100
then RichtigEdit2
else FalschEdit2;
end;

Gibt es nicht eine andere Möglichkeit festzulegen, bzw festzustellen, dass wenn der Benutzer in das Edit Feld nichts eingibt, er dazu aufgefordert wird was einzugeben... erst wenn er was eingeben hat solls weiter gehen.. Weil sonst rechnet er mir irgendwas aus und stellt den "Fehler Zähler " eins höher, obwohl ja garnichts eingegeben wurde..

PS: in dem Programm gehts darum aus Metern Centimeter zu machen. Ist ein programm mit dem das "geübt" werden soll..