Код перевода из 16ой в 10ую СС.

[DooMik]

Застопорился в коде.... мне нужно этот код довести до ума без использования функций... только в процедуре. код перевода из 16ой в 10ую СС.

begin
    f:=Edit1.Text;
     Edit2.Text:='';
       for i:=length(f) downto 1 do
        case f[i] of
'0': Edit2.text:= '0'+Edit2.text;
'1': Edit2.text:= '1'+Edit2.text;
'2': Edit2.text:= '2'+Edit2.text;
'3': Edit2.text:= '3'+Edit2.Text;
'4': Edit2.text:= '4'+Edit2.text;
'5': Edit2.Text:= '5'+Edit2.Text;
'6': Edit2.Text:= '6'+Edit2.Text;
'7': Edit2.Text:= '7'+Edit2.Text;
'8': Edit2.text:= '8'+Edit2.text;
'9': Edit2.text:= '9'+Edit2.text;
'A': Edit2.text:= '10'+Edit2.Text;
'B': Edit2.text:= '11'+Edit2.text;
'C': Edit2.Text:= '12'+Edit2.Text;
'D': Edit2.Text:= '13'+Edit2.Text;
'E': Edit2.Text:= '14'+Edit2.Text;
'F': Edit2.Text:= '15'+Edit2.Text;
end;
end;

[mss]

Edit2.Text := IntToStr(StrToInt('$'+Edit1.Text))

[DooMik]

Пасиба Большое ))) а то завтра сдавать