перевод чисел

[friger]

как сделать переводчик чисел из 16 ричной сс в 8 ричную на delphi7 ?

[Базиля]

Зачем дублируете темы?
http://programmersforum.ru/showthread.php?t=223124

Что есть "как"?
С чем трудности?
From Stilet: Убрал тот кросспост.

[Izobara]

Переведи из 16-ричной в 2-ичную. С 2-ичной в 8-ричную.
Все прекрасно гуглится.

[Serge_Bliznykov]

если нет ограничений на используемые операторы/процедуры,
то можно и через десятичную систему перевести (используя возможности самого Delphi по переводу Hex-строки в десятичное число с помощью процедуры val):

procedure TForm4.ButtonStartConvertClick(Sender: TObject);
var i, NumberVal, k : Integer;
  RezOct : string;
begin
  // сначала число из edHexValue.Text переведём в десятичное число
  val(  '$'+Trim(edHexValue.Text), NumberVal, k);
  if k<>0 then Application.MessageBox('Неверная запись шестнадцатеричного числа!', 'Ошибка',
                                     MB_ICONERROR or MB_OK)
  else begin
    {переведём число из десятичного представления в восьмеричное}
    RezOct := '';
    repeat
      RezOct :=  IntToStr(NumberVal mod 8) + RezOct;
      NumberVal := NumberVal div 8;
    until NumberVal=0;
    edOct.Text := RezOct;
  end;

end;

[hon]

Наработки в студию!