negative zahlen ausschliessen

[werso01]

hi.

um vorzuwarnen: ich bin ein anfaenger punkto delphi-programmierung.
also ...
ich muss ein programm schreiben, das kreisumfang und kreisfläche berechnet (durch eingabe des radius).
eigentlich ganz einfach.
ich habe alle fehlerquellen ausgeschlossen, bis auf jene, dass man keine negative zahl eingeben kann.
wahrscheinlich funktioniert das mit einer if-funktion aba ich hab leider keine ahnung wie die syntax lautet.

klartext: ich will in einem editfeld nur _positive_ zahlen erlauben.

vielleicht kann mir ja jemand helfen.

danke im voraus!

[Die Muhkuh]

Hi,

und willkommen in der DP :dp:,

wenn ich dich richtig verstanden habe beim Eingeben das Minus(-)-Zeichen nicht zulassen?

Einfach ins OnKeyPress:

Delphi-Quellcode:

if Key = '-' then
  Key := #0;

[GLaforge]

@werso01:

Code:

if Zahl < 0 then Fehlermeldung

Hoffe das hilft dir weiter.

cu



PS:Hallo im DP-Forum :dp:

[werso01]

danke fuer die hilfe, aber irgendwie funktionieren beide nicht:

Delphi-Quellcode:

procedure TFormKreis.ButtonRechneClick(Sender: TObject);
VAR Radius : REAL;
begin
   TRY
      Radius := StrToFloat(EditRadius.Text);
   EXCEPT
      Radius := 0;
      EditRadius.Text := '0';
   if Radius < 0   bzw Radius = '-'
   then
       Radius:=0;      
       EditRadius.Text:='0';
       ShowMessage ('Eingabefehler! Nur positive Zahlen dürfen eingegeben werden!')

   END;
   LabelErgUmfang.Caption := FloatToStrF (2*Radius*Pi,ffGeneral,6,0);
   LabelErgFlaeche.Caption := FloatToStrF (Radius*Radius*Pi,ffGeneral,6,0);
   EditRadius.SetFocus;
end;

so sieht die gesamte procedure aus.

gehoert das except weg?

ich habe leider keine ahnung - wie gesagt, bin anfaenger

[edit=Luckie] Mfg, Luckie[/edit]

[GLaforge]

Wenn du wirklich nur positive Werte im EditFeld zulassen willst ist die Methode von Spider die bessere,d.h du gehst bei dem EditFeld auf die Events bzw. Ereignisse und dort unter OnKeyPress. In der neuen Procedure gibst du die von Spider gegeben Variante ein- müsst eigentlich funzen.

cu


PS: Alternativ kannst du auch StringReplace nutzten.

[Die Muhkuh]

@werso01

du musst das was ich geschrieben habe ins OnKeyPress des Edits machen!

[nailor]

du hast die abfrage im except block drin. da gehört die aber nicht rein, sondern muss außerhalb desselben stehen