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!

Hi,

und willkommen in der DP ,

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

Einfach ins OnKeyPress:

markieren

Delphi-Quellcode:

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

@werso01:

markieren

Code:

if Zahl < 0 then Fehlermeldung

Hoffe das hilft dir weiter.

cu



PS:Hallo im DP-Forum

danke fuer die hilfe, aber irgendwie funktionieren beide nicht:

zusammenfalten · markieren

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]

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.

@werso01

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

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