Textfeld auf Zahl prüfen

[DeddyH]

TryStrToFloat, da ist String wohl der falsche Datentyp für die Variable Zahl.

[himitsu]

Zitat von Chemiker:

oder mit KeyPress-Event nur Zahlen zulassen.

Wieder hat jemand vergessen, daß es auch einige ShortCuts und das Kontextmenü gibt .... vorallem das "Einfügen".


Und was haben alle gegen existierende Funktionen? (TMaskEdit, TEdit.NumbersOnly usw.)

[AblukaAlarm]

Delphi-Quellcode:

procedure TForm1MSP.RadioGroup1Click(Sender: TObject);
begin

end;

Var zahl:string;

procedure TForm1MSP.Edit1MasseChange(Sender: TObject);
 begin
    if not TryStrToFloat(Edit1Masse.text,zahl)
       then showmessage('FEHLER');
 end;

 begin
    if RadioButtonFlussdichte.Checked = true then
     Label7.Caption := Edit1Spannung.Text
  else Label5.Caption := Edit1Flussdichte.Text;

  end;

was muss ich den für zahl eine Variable geben?

[baumina]

Die Variable "Zahl" würde ich
1. in die Procedure mit reinnehmen, damit ist sie nur lokal innerhalb der procedure gültig und
2. als Extended oder Double deklarieren, denn eine Zahl ist eine Zahl und kein String

Das Ganze würde dann so aussehen:

Delphi-Quellcode:

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

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

[mkinzler]

StrToFloat = String To Float als einen String in eine Fließkommazahl, da würde isch eine Fließkommavariable ( Single, Double, Extended) anbieten

[DeddyH]

http://docwiki.embarcadero.com/Libra....TryStrToFloat

Zitat:

Delphi-Quellcode:

function TryStrToFloat(const S: string; out Value: Extended): Boolean;
function TryStrToFloat(const S: string; out Value: Extended; const AFormatSettings: TFormatSettings): Boolean;
function TryStrToFloat(const S: string; out Value: Double): Boolean;
function TryStrToFloat(const S: string; out Value: Double; const AFormatSettings: TFormatSettings): Boolean;
function TryStrToFloat(const S: string; out Value: Single): Boolean;
function TryStrToFloat(const S: string; out Value: Single; const AFormatSettings: TFormatSettings): Boolean;

Such Dir einen der 3 Datentypen aus.

[AblukaAlarm]

Delphi-Quellcode:

procedure TForm1MSP.Edit1MasseChange(Sender: TObject);
Var zahl:Extended;
 
begin
    if not TryStrToFloat(Edit1Masse.text,zahl)
       then showmessage('FEHLER');
 end;

 begin
    if RadioButtonFlussdichte.Checked = true then
     Label7.Caption := Edit1Spannung.Text
  else Label5.Caption := Edit1Flussdichte.Text;
  end;

In diesem Zustand bleibt er bei RadioButtenFlussdichte.Checked hängen

[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]