|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Edit Problem
26. Mär 2009, 10:36
Die Länge bekommst Du mit Length(Edit.Text). Und die Schleife habe ich so gemeint:
Delphi-Quellcode:
function IsNumber(const s: string): Boolean;
var i: integer;
begin
Result := true;
for i := 1 to Length(s) do
if not (s[i] in ['0'..'9']) then
begin
Result := false;
exit;
end;
end;
Schnell heruntergetippt, sollte aber hoffentlich funktionieren.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|