Try-Except Hilfe

[DeddyH]

AFAIK gab es in Delphi 5 weder TryStrToFloat noch StrToFloatDef.

[alfold]

Im onkeypress kannst Du sowas verwenden
if not (key in ['0'..'9',#8, '.', ',', '-' ]) then key := #0;
es werden nur zahlen 0-9, backspace, punkt, komma und minus zugelassen.

so als Alternative

alfold

[BUG]

Zitat von alfold:

Im onkeypress kannst Du sowas verwenden
if not (key in ['0'..'9',#8, '.', ',', '-' ]) then key := #0;

Dann gehen aber auch Eingaben wie

Code:

32098,32--43,32-44.3294.3-24

Die Lösung von jfheins würde ich bevorzugen, allerdings ließe sich das ja auch kombinieren.

[DeddyH]

Wie wäre es denn so (über das Leeren des Edits kann man sich ja streiten, aber das ist nicht meine Sache)?:

Delphi-Quellcode:

//Für ältere Delphis unelegant implementiert
function TryStrToFloat(const s: string; out Number: double): Boolean;
begin
  try
    Number := StrToFloat(s);
    Result := true;
  except
    Result := false;
  end;
end;

procedure TForm5.Edit1Change(Sender: TObject);
var
  Zahl: double;
begin
  if (Sender is TEdit) and (TEdit(Sender).Text <> '') and (TEdit(Sender).Text <> '-') then
    if not TryStrToFloat(TEdit(Sender).Text, Zahl) then
      TEdit(Sender).Text := '';
end;

[himitsu]

Zitat von DeddyH:

AFAIK gab es in Delphi 5 weder TryStrToFloat noch StrToFloatDef.

Ob der TE wirklich D5 verwendet, sei mal dahingestellt, denn D5 ist hier Standard, also steht immer dann da, wenn man da nix angegeben hat.

> Daniel hat ja nicht auf mich gehört, und keine anderere Vorauswahl eingebaut.

Solange eugene222 also nix anderes sagt, geh ich einfach davon aus, daß er nichts geziehlt angegeben hat.
PS: Ein Eintrag im Profil hätte dieses jetzt aber klären können.

[DeddyH]

Im Ausgangspost ist explizit Delphi 5 angegeben.

[eugene222]

Ich war weg, hab jetzt kurz eure Beiträge kurz überflogen. Ich habe die Delphi Version 7. Ich werde das ändern. Es wird als Standart V. 5 angegeben. Ich habe das nicht bemerkt. Morgen werd ich die Beiträge nochmal durchlesen und es ausprobieren, da ich jetzt erstmal schlafen gehe.
Naja aber Danke für eure Hilfe bis jetzt.

[alzaimar]

Dein Ansatz funktioniert ganz einfach deshalb nicht, weil nach der Eingabe des führenden '-' der Code in den Except-Teil springt und das Vorzeichen wieder entfernt.

[eugene222]

Ich hab das von DeddyH ausprobiert und es funktioniert einwandfrei. Ich werd jetzt erstmal versuchen den kleinen Code komplett zu verstehen. Naja vielen Dank an alle!

Ich hab das jetzt anders gelöst. Die Schrift wird rot wenn es falsch ist und Grün wenn die Eingabe richtig ist. Wenn alle Editfelder OK sind, wird der Button aktiviert, sonst deaktiviert.

Dieses Thema kann geschlossen werden. Danke an alle.