Schleifen Bedingung

[daredd]

hi,
ich habe eine if-then-Schlefe und die soll nur ausgeführt werden wenn unter Edit3 (ein TEdit) eine Zahl steht und keine buchstaben.

bisher bin ich nur so weit:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit3.Text=integer then
begin
Person.Caption:=Edit1.Text;
Medikament.Caption:=Edit2.Text;
Frequenz.Caption:=Edit3.Text;
end;
end;

was muss ich nach if schreiben damit das alles so funktioniert wie ich mir das vorstelle. :coder2:

[edit=SirThornberry]Programmiersprache korrigiert da es hier wohl nicht um .Net geht - Mfg, SirThornberry[/edit]

[mirage228]

Hi,

Vielleicht hilft dir ja TryStrToInt bzw. Val ;)

mfG
mirage228

[theNick]

das kannst du validieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var FehlerCode: integer;
begin
  val (Edit3.Text, fehlercode);
  IF FehlerCode >0 THEN
    showmessage('Falsche Eingabe')
  ELSE
    BEGIN
      Person.Caption:=Edit1.Text;
      Medikament.Caption:=Edit2.Text;
      Frequenz.Caption:=Edit3.Text;
    end;
end;

glaub so oder so war das :D
wenn das net geht such einfach mal nach "val", "validate" oder "validieren"

[Die Muhkuh]

By the way: www.if-schleife.de

[theNick]

Zitat:

Zitat von Spider

By the way: www.if-schleife.de

lol ^^ der is gut :P

[daredd]

Danke Nick hat geklappt.

[daredd]

Ach und was muss ich schreiben wenn eine DezimalZahl sein soll???

Also nicht Integer!

[3_of_8]

Es wäre bedeutend einfacher, wenn du gleich die Eingabe von Nicht-Zahlen bzw. Nicht-Zahlen ausgeschlossen dem Dezimalkomma verhinderst.

Das geht beispielsweise so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Style: DWord;
begin
Style:=GetWindowLong(Edit3.Handle, GWL_STYLE);
SetWindowLong(Edit3.Handle, GWL_STYLE, Style or ES_NUMBER);
end;

FormCreate ist das Ereignis, das beim Erstellen der Form ausgelöst wird.

[grenzgaenger]

Zitat:

Zitat von Die Muhkuh

By the way: www.if-schleife.de

@muhkuh: ganz so is es ja net. die existenz der if-schleife wurde ja auch hier im forum zweifelsfrei bewiesen, auch wenn es manche moderatoren nicht wahrhaben wollen ;-) .

If-Schleife