Willst Du nur alle Numerischen Anteile des Strings zurückbekommen, oder soll die Annahme des Strings einfach verweigert werden, wenn da was anderes als Ziffern drin gefunden wird?
Für den ersten Fall kannst DU sowas machen:
Delphi-Quellcode:
function CopyNumericOnly(s: string): string;
var
i, l : integer;
begin
Result := '';
i := 1;
l := Length (s) + 1;
while i < l do
begin
if pos (s [i], '0123456789') > 0 then
begin
Result := Result + S [i];
end;
inc (i);
end;
end;
Für den zweiten Fall sowas:
Delphi-Quellcode:
function IsNumeric(s:
string): Boolean;
var
i : integer;
begin
Result := True;
i := Length (s);
while (Result
and (i > 0))
do
begin
Result := (pos (copy (s, i, 1), '
0123456789') > 0);
dec (i);
end;
end;
quick and dirty, sollte aber funktionieren
Hope it helps
Thomas