Question

delphi怎样将16进制转换成10进制

Answer 1

const
	s:string='fffff.f';
var
	r:real;
	ch:char;
	x:integer;
	i,j,n,n1,n2:integer;
begin
	n:=length(s);
	for i:=1 to n do s[i]:=upcase(s[i]);
	for i:=1 to n do 
		if pos(s[i],'0123456789.ABCEDF')=0 then 
			begin writeln('error'); halt; end;
	j:=pos('.',s);
	r:=0;
	if j=0 then begin
		for i:=1 to n do begin 
			ch:=s[i];
			if pos(ch,'0123456789')>0 
				then x:=ord(ch)-ord('0') 
				else x:=ord(ch)-ord('A')+10;
			r:=r+x*exp((n-i)*ln(16));
		end;
		writeln(r:22:11); 
		halt;
	end;
	if j<>0 then begin
		s[j]:='#';
		if pos('.',s)>0 then begin writeln('error'); halt; end;
		n1:=j-1;
		n2:=n-j;
		for i:=1 to n1 do  begin
			ch:=s[i];
			if pos(ch,'0123456789')>0 
				then x:=ord(ch)-ord('0') 
				else x:=ord(ch)-ord('A')+10;
			r:=r+x*exp((n1-i)*ln(16));
		end;
		for i:=1 to n2 do begin
			ch:=s[j+i];
			if pos(ch,'0123456789')>0 
				then x:=ord(ch)-ord('0') 
				else x:=ord(ch)-ord('A')+10;
			r:=r+x*exp((-i)*ln(16));
		end;
		writeln(r:22:11); 
	end;
end.