IntToStr - IntToHex - ...

[Alex Cones]

Что-то я не соображу, у меня есть число в интеджере, как мне его в виде Hex вывести в лейбл?

[quit]

Сообщение от Alex Cones

Что-то я не соображу, у меня есть число в интеджере, как мне его в виде Hex вывести в лейбл?

  i: integer;
  s: string;
begin
  i := 32;
  s := IntToHex(i,1);
  Label1.Caption := s;

или

Label1.Caption := IntToHex(32,1);

[Stilet]

Еще один вариант:

caption:=format('%x',[45]);

[Alex Cones]

Всем спасибо, кстати, а что означает второе число в IntToHex?

[quit]

Всем спасибо, кстати, а что означает второе число в IntToHex?

IntToHex (Value: Integer; Digits: Integer)
Преобразует целое число Value в строку шестнадцатеричного формата не менее Digits символов.

[Alex Cones]

Ааааа, ясно, а как обратно развоплотить строку из 16 в инт?


('FFFFFF' - 16777216)

[quit]

Сообщение от Alex Cones

Ааааа, ясно, а как обратно развоплотить строку из 16 в инт?


('FFFFFF' - 16777216)

Чувак в Гугле просто тысячи примеров!!!

[Alex Cones]

Практически все из них упираются в

var
  i : integer
  s : string;
begin
  s := '$' + ThatHexString;
  i := StrToInt(a);
end;

А это почему то не пашет((


Не не не, это моя оша. не там это влепил(. сорри.

[Alter]

Вот оно как:

function HexToInt(s :string):integer;
Var I,II, Tmp :Integer;
begin
 Result := 0;
  If Length(S)<=0 then Exit;
  Tmp := 0;
 For I:=1 To Length(S) Do
 begin
   II := I-1;
  Case S[I] Of
	  '0' : Tmp := Tmp + 1*Step(16, II);
		'1' : Tmp := Tmp + 1*Step(16, II);
		'2' : Tmp := Tmp + 2*Step(16, II);
		'3' : Tmp := Tmp + 3*Step(16, II);
		'4' : Tmp := Tmp + 4*Step(16, II);
		'5' : Tmp := Tmp + 5*Step(16, II);
		'6' : Tmp := Tmp + 6*Step(16, II);
		'7' : Tmp := Tmp + 7*Step(16, II);
		'8' : Tmp := Tmp + 8*Step(16, II);
		'9' : Tmp := Tmp + 9*Step(16, II);
		'A' : Tmp := Tmp + $A*Step(16, II);
		'B' : Tmp := Tmp + $B*Step(16, II);
		'C' : Tmp := Tmp + $C*Step(16, II);
		'D' : Tmp := Tmp + $D*Step(16, II);
		'E' : Tmp := Tmp + $E*Step(16, II);
		'F' : Tmp := Tmp + $F*Step(16, II);
  End;
 end;
  Result := Tmp;
end;

Function Step(X, Y :Integer):Integer;
begin
 Result := Round(Exp(Ln(X)*Y));
end;