Warnung beseitigen

[himitsu]

auch wenn's schon gelöst wurde ... hier nochmal einige Ansätze:

Delphi-Quellcode:

function JustNumbers(instr:string):string;
var
  t:integer;
begin
  result:=instr;
  for t:=length(instr) downto 1 do
    if (instr[t] < '0') or (instr[t] > '9') then delete(result, i, 1);
end; 

function JustNumbers(instr:string):string;
var
  t:integer;
begin
  result:=instr;
  for t:=length(instr) downto 1 do
    if not CharInSet(instr[t], ['0'..'9']) then delete(result, i, 1);
end; 

uses DynSet;
function JustNumbers(instr:string):string;
var
  t:integer;
begin
  result:=instr;
  for t:=length(instr) downto 1 do
    if not DecimalDigits.Contains(instr[t]) then delete(result, i, 1);
end;