Schleifen Bedingung

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