|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Texteingaben sowie leerstellen ausschliessen
26. Dez 2010, 17:25
es gibt verschieden Möglichkeiten, ich würde die erste bevorzugen.
Delphi-Quellcode:
var
f:Double;
begin
If not TryStrToFloat(Edit1.text,f) or (f=0) then Raise Exception.Create(' Fehler');
end;
oder auch
if (length(Trim(Edit1.Text)) = 0) or (Trim(Edit1.Text)='0') then ....
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|