简单的

Question

在DELPHI6怎么将 字符型转换成数值型

Answer 1

strtoint(string)
strtofloat(string)

Answer 2

function stringtonumeric(str:string):numeric;
var
  i,j:integer;
  bl: boolean;
  
begin
  bl:=false;
  i:=length(str);
  for j:=0 to i-1 do
  begin
    if str[j] in ['0'..'9'] then
    begin
      bl:=ture;
      break;
    end;
  if bl=false then
  begin
    result:=strtoint(str); //or result:=strtofloat(str)
  end; 
  end;
end;