Textfeld auf Zahl prüfen

[baumina]

Weil deine Begins und Ends komplett durcheinander gekommen sind.

Ein letztes mal *Code vorkau*

Delphi-Quellcode:

procedure TForm1MSP.RadioGroup1Click(Sender: TObject);
begin
  if RadioButtonFlussdichte.Checked = true then
    Label7.Caption := Edit1Spannung.Text
  else Label5.Caption := Edit1Flussdichte.Text;
end;

procedure TForm1MSP.Edit1MasseChange(Sender: TObject);
Var 
  zahl:Extended;

begin
   if not TryStrToFloat(Edit1Masse.text, zahl)
      then showmessage('FEHLER')
end;

[mkinzler]

Außerdem
if RadioButtonFlussdichte.Checked then

[DeddyH]

if RadioButtonFlussdichte.Checked {= true} then Nicht mit true vergleichen, das kann ins Auge gehen.

[edit] *Gnarf* zu spät [/edit]

[AblukaAlarm]

Man man jetzt sehe ich den Fehler erst.

Vielen Dank das erste Problem mit den Buchstaben ist schon mal gelöst!

Nun ensteht noch ein Problem, denn wenn ich zu viel in den Textfeldern rumspiele 112341 und dann a reinschreibe zeigt er diese Message, jedoch später nimmt er mal alles falsch an auch Zahlen, später mal alles richtig an. Komisch :S

[Jumpy]

Willst du nicht mal den ganzen Quelltext posten (Copy & Paste). Da ist bestimmt noch anderes durcheinander.