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:

markieren

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.

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

Hi,

Vielleicht hilft dir ja TryStrToInt bzw. Val

mfG
mirage228

das kannst du validieren

zusammenfalten · markieren

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
wenn das net geht such einfach mal nach "val", "validate" oder "validieren"

By the way: www.if-schleife.de

Zitat von Spider:

By the way: www.if-schleife.de

lol ^^ der is gut

Danke Nick hat geklappt.

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

Also nicht Integer!

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

Das geht beispielsweise so:

markieren

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.

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