Dec to Hex - пример использования

[Roof]

Нашел функцию преобразования Dec в Hex. А делфи ругается Не пойму почему.

function dec2hex(value: dword): string[8];
const
hexdigit = '0123456789ABCDEF';
begin
while value <> 0 do
begin
   dec2hex := hexdigit[succ(value and $F)];
   value := value shr 4;
end;
if dec2hex = '' then dec2hex := '0';
end;

Ругается на строку function dec2hex(value: dword): string[8];
Не пойму почему. Приведите пример использования данной функции

[JRcoker]

function dec2hex(value: dword): string;
const
 hexdigit = '0123456789ABCDEF';
 begin
 while value <> 0 do
 begin
 dec2hex := hexdigit[succ(value and $F)];
 value := value shr 4;
 end;
end;

проде не чё не ругается

[puporev]

function dec2hex(value: dword): string[8]);
Скобку поставь.

[Arigato]

Нельзя, что бы функция возвращала значение не описанного типа, т.е. должно заработать так:
type hex = string[8]...
function dec2hex(value: dword): hex;
Кроме того, я бы не делал так: if dec2hex = '' then dec2hex := '0';
Резюмируем:

type hex = string[8];

function dec2hex(value: dword): hex;
const hexdigit = '0123456789ABCDEF';
begin
  Result := '';
  while value > 0 do
  begin
    Result := hexdigit[succ(value and $F)] + Result;
    value := value shr 4;
  end;
  if Result = '' then Result := '0';
end;

puporev
Какую еще скобку?

P.S. В Делфи есть функция IntToHex

[mutabor]

Вот она (из Дельфи), похоже ее все таки лучше использовать )

function IntToHex(Value: Integer; Digits: Integer): string;
//  FmtStr(Result, '%.*x', [Digits, Value]);
asm
        CMP     EDX, 32        // Digits < buffer length?
        JBE     @A1
        XOR     EDX, EDX
@A1:    PUSH    ESI
        MOV     ESI, ESP
        SUB     ESP, 32
        PUSH    ECX            // result ptr
        MOV     ECX, 16        // base 16     EDX = Digits = field width
        CALL    CvtInt
        MOV     EDX, ESI
        POP     EAX            // result ptr
        CALL    System.@LStrFromPCharLen
        ADD     ESP, 32
        POP     ESI
end;

[Roof]

спасиб))
2 mutabor - приведи, пожалуйста, пример использования IntToHex. Ввожу в Edit1 число, как мне в Edit2 получить его в 16-ом виде? Понять не могу как 16-ый тип данных объявить в программе?

[JRcoker]

Edit1.Text:=IntToHex(Edit2.text);
Пологаю что так...

[Arigato]

Сообщение от JRcoker

проде не чё не ругается

Сообщение от JRcoker

Edit1.Text:=IntToHex(Edit2.text);
Пологаю что так...

А проверить прежде, чем писать ответ, не надо? Извините, конечно, но Вы даете ответы, которые неверны (уже 2-й раз подряд в этой теме), набивать счетчик сообщений можно в ветке "Свободное общение".

Roof
Примерно так нужно делать:

Edit2.Text := IntToHex (StrToInt (Edit1.Text), 4);

Второй параметр в функции IntToHex показывает количество шестнадцатеричных цифр результата.

[Roof]

2 Arigato - Спасибо Большое. Работает.
По-моему лучше так работает.

Edit2.Text:=IntToHex(StrToInt(Edit1.Text),0);

Лишние нули убираются.