Понимаю, что не в пятницу после обеда, но хелп сбился, подскажите

← →
Vlad Oshin © (2007-04-06 16:25) [0]

function IntToStr_h(b:byte):string; // IntToStr_h(234)="EA" IntToStr_h(14)="0E"
const
a:array [0..15] of char=("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F");
begin
result:=a[b mod 16]+a[b div 16];
end;

или есть стандартные?

← →
MBo © (2007-04-06 16:27) [1]

IntToHex

← →
Vlad Oshin © (2007-04-06 16:33) [2]

не, ну это я помню :)
а чтоб именно string на выходе?

← →
Чапаев © (2007-04-06 16:34) [3]

Гм. А у IntToHex() на выходе что? :о)

← →
Ega23 © (2007-04-06 16:35) [4]

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;

← →
clickmaker © (2007-04-06 16:35) [5]

> чтоб именно string на выходе?

что пил за обедом? ))

← →
Vlad Oshin © (2007-04-06 16:37) [6]

if colordialog1.Execute then
begin
MyColor:=colordialog1.Color;
asm
mov eax,MyColor
mov r,al
mov g,ah
ror eax,16
mov b,al
end;
label5.Font.Color:=MyColor;
memo1.Lines.Add("<FONT COLOR="+inttohex(r)

[Error] Unit1.pas(549): There is no overloaded version of "IntToHex" that can be called with these arguments

+inttostr_h(g)+inttostr_h(b)+">test</FONT>");
end;
[Error] Unit1.pas(549): There is no overloaded version of "IntToHex" that can be called with these arguments

← →
Vlad Oshin © (2007-04-06 16:39) [7]

блин..
аргумент :byte

Спасибо :)

← →
clickmaker © (2007-04-06 16:39) [8]

function IntToHex(Value: Integer; Digits: Integer): string; overload;
function IntToHex(Value: Int64; Digits: Integer): string; overload;

Description

IntToHex converts a number into a string containing the number"s hexadecimal (base 16) representation. Value is the number to convert. Digits indicates the minimum number of hexadecimal digits to return.

← →
MBo © (2007-04-06 16:39) [9]

второй параметр добавь - количество цифр
можно и Format использовать со спецификатором %x

← →
Vlad Oshin © (2007-04-06 16:41) [10]

да нет, правильно..
опять неправильно

← →
Vlad Oshin © (2007-04-06 16:43) [11]

аа
ну да.

все, переустанавливаю все нафиг, невозможно работать без хелпа

> [11] Vlad Oshin © (06.04.07 16:43)

я вот тока не понял, если тебе сказали no overloaded version of "IntToHex" that can be called with these arguments
то причем тут возвращаемое значение, которое якобы не string?

> clickmaker © (06.04.07 16:45) [12]
>
>
> > [11] Vlad Oshin © (06.04.07 16:43)
>
> я вот тока не понял, если тебе сказали no overloaded version
> of "IntToHex" that can be called with these arguments
> то причем тут возвращаемое значение, которое якобы не string?
>
>

Переводчик "сбился" вместе с хелпом, наверное :)

блин, хватит прикалываться :)
я сегодня уезжаю, уже через 2 часа, а надо чтоб до завтра заработала еще одна фишка, тут не до чтения по буквам.

че тут думать - прыгать надо :)

> че тут думать - прыгать надо :)

С бубном :)

Жаль орешник не работает :(((

Понимаю, что не в пятницу после обеда, но хелп сбился, подскажите Найти похожие ветки