Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
17. Feb 2010
auch wenn's schon gelöst wurde ... hier nochmal einige Ansätze:
function JustNumbers(instr:string):string;
var
t:integer;
begin
result:=instr;
for t:=length(instr) downto 1 do
if (instr < '0') or (instr > '9') then delete(result, i, 1);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
17. Feb 2010
Nutze einfach das CharInSet, welches auch erwähnt wird?
PS: genau wegen sowas wurde auch Einiges "erfunden", so wie
http://www.delphipraxis.net/internal_redirect.php?t=152883
und
http://www.delphipraxis.net/internal_redirect.php?t=169966