keine Buchstaben im Edit-Feld...?

[Sharky]

Zitat von deadline:

..... nein, diese Edit-felder sind nur für zahlen gedacht... *gg*
...

Wie gesagt, es gibt eine Suchfunktion!!!

Aber ich bin heute gut gelaunt:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.OnKeyPress := NurZahlen;
 Edit2.OnKeyPress := NurZahlen;
 Edit1.Text := '';
 Edit2.Text := '';
end;

{*********************************************************}

procedure TForm1.NurZahlen(Sender: TObject; var Key: Char);
begin
 If Not (Key IN ['0'..'9',',','-',#8,#9,#13]) then
  begin
   Key := #0;
  end;
end;

{*********************************************************}

procedure TForm1.Button1Click(Sender: TObject);
 var
 zahl1,
 zahl2 : Extended;
begin
if (Length(Edit1.Text) >0 ) AND (Length(Edit2.Text) > 0 ) then
 begin
  zahl1 := StrToFloat (Edit1.Text);
  zahl2 := StrToFloat (Edit2.Text);
  if (Zahl2<>0) then
   begin
    Label1.Caption := FloatToStr (zahl1/zahl2);
   end
  else
   begin
    MessageDlg('Diviesion durch 0', mtError, [mbOK], 0);
   end;
 end
else
 begin
  MessageDlg('Wie soll ich ohne Zahlen rechnen?', mtConfirmation, [mbOK], 0);
 end;
end;

Benötigt:
1 Button
2 Edit
1 Label