Textfeld auf Zahl prüfen

[AblukaAlarm]

Hallo zusammen,

habe das Problem ein Eingabefeld (sollte nur für Zahlen sein, sonst keine Berechnung möglich) auf Zahlen zu prüfen.
Der Anfang des Programms sieht so aus:

Delphi-Quellcode:

type

  { TForm1MSP }

   TForm1MSP = class(TForm)
    ...
    Edit1Masse: TEdit;
....(die anderen Felder)

  procedure Edit1MasseChange(Sender: TObject);
....(die anderen Felder)

Nun in dem Feld wo die Zahl rein kommen soll:

Delphi-Quellcode:

procedure TForm1MSP.Edit1MasseChange(Sender: TObject);

....

hiernach habe ich alles mögliche versucht, aber habe immer Fehlermeldungen bekommen.

Mein Ziel ist es, einfach dieses Feld auf Zahlen (mit Komma oder ohne ist egal) zu prüfen und falls dort eine Buchstabe eingegeben wird soll showmessage('Bitte geben Sie eine Zahl ein') rauskommen
Konnte das Problem nicht lösen und bitte um Hilfe
Vielen Dank :thumb:

[mkinzler]

Z.B. mit TryStrToFloat()

[AblukaAlarm]

Delphi-Quellcode:

VAR
zahl:string

Delphi-Quellcode:

try
zahl :=TryStrToFloat(Edit1Masse.text);
except
 showmessage('Geben Sie bitte eine Zahl ein');
end;

habe das hier mal versucht aber das programm starten dann nicht

[mkinzler]

Delphi-Quellcode:

if not TryStrToFloat(Edit1Masse.text, zahl) then ...

[himitsu]

Zitat:

Zitat von AblukaAlarm (Beitrag 1278928)

aber das programm starten dann nicht

Wie bitte?
PS: Die Fehlermeldung kann man kopieren (Strg+C) oder notfals halbwegs abschreiben.

Und jetzt schau mal bitte in die OH (TryStrToFloat) und prüfe was du falsch gemacht hast.

Ach ja, TryStrTo... lösen keine Exceptions aus.

[Chemiker]

Hallo,

oder mit KeyPress-Event nur Zahlen zulassen.

Delphi-Quellcode:

if not (Key in [#48..#57] then Key:=0;

Bis bald Chemiker

[DeddyH]

Dann kriegst Du aber auch kein Komma rein. Nimmst Du das mit in die Menge auf, kann es mehrfach oder an unsinniger Stelle vorkommen.

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

nun siehts so aus und so kommt die Fehlermeldung:
unit1.pas(127,47) Error: Call by var for arg no. 2 has to match exactly: Got "AnsiString" expected "Extended"

[Chemiker]

Hallo DeddyH,

Zitat:

Zitat von AblukaAlarm

(mit Komma oder ohne ist egal)

Bis bald Chemiker

[Sir Rufo]

Na dann schau dich mal was

Delphi-Quellcode:

zahl

für einen Typen hat und welcher Typ wohl erwartet wird?

[DeddyH]

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

[himitsu]

Zitat:

Zitat von Chemiker (Beitrag 1278931)

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

Delphi-Quellcode:

if RadioButtonFlussdichte.Checked then

[DeddyH]

Delphi-Quellcode:

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.