Как реализовать функцию IntToStr???

[Morskoivolk]

Доброго здравия всем! у меня такая проблема: писал генератор ключа к одной прогрммке на чистом WinApi, конечный результат выводится в компонент TEdit. Только чтобы вывести туда число, его переводим в строку.....но в API по моим наблюдениям нету аналога Дельфоской функции IntToStr.
Немного помозговав, я подумал что если дизасемлировать файл и псмореть под отладчиком как переводится число в строку,то все будет пучком....вместо этого же я наткнулся на кучу call....а в них еще на кучу таких же колов)))) Хотя автор одной статьи когда писал ключегенератор, то он в своей программе эту функцию заменил буквально несколькими десятками строк ассемблерного текста?
Подскажите, чем можно заменить IntToStr или где можно взять исходный текст в ассемблерном варианте этой функции (если таковые вообще есть))))?

[Квэнди]

function IntToStr(Value: Integer): string;
// FmtStr(Result, '%d', [Value]);
asm
PUSH ESI
MOV ESI, ESP
SUB ESP, 16
XOR ECX, ECX // base: 0 for signed decimal
PUSH EDX // result ptr
XOR EDX, EDX // zero filled field width: 0 for no leading zeros
CALL CvtInt
MOV EDX, ESI
POP EAX // result ptr
CALL System.@LStrFromPCharLen
ADD ESP, 16
POP ESI
end;

[Квэнди]

В общем смотри в исходниках VCL

[Morskoivolk]

извини за вопрос, просто я еще ламак)) а где найти эти самые исходники?))) в корневой папке Delphi..?

[Квэнди]

набираешь в коде
inttostr
нажимаешь control и удерживая его нажимаешь мышкой на название функции

[Morskoivolk]

я нажимаю....она подсвечивается как гиперссылка и все)))

[mihali4]

Тыркаем мышкой куда-нибудь посреди "INTTOSTR", т.е. ставим туда курсор и жмем F1...
Там будет указано, в каком модуле находится эта функция.

[zetrix]

Модуль SysUtils, 4328 строка

[rpy3uH]

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

я нажимаю....она подсвечивается как гиперссылка и все)))

ну нажимаешь по этой гиперссылке и выходишь на код функции