Как конвертировать Integer в строеовый тип?

← →
Dmitrii__ (2003-05-28 19:45) [0]

А как конвертировать Integer в строеовый тип,
без SysUtils?

← →
default (2003-05-28 19:48) [1]

самое простое - это взять исходнbяк из самого SysUtils

← →
Dmitrii__ (2003-05-28 19:51) [2]

Я, собственно, так и делаю, но в хелпе нашел IntToAscii,
но вот ее ни где нет...

← →
default (2003-05-28 20:03) [3]

есть! я смотрел
довольно интересная реализация!

← →
Dmitrii__ (2003-05-28 20:05) [4]

Где?!

← →
Dmitrii__ (2003-05-28 20:32) [5]

А размер почему-то больше получается если навыдергивать
из SysUtils.

← →
МДа.. (2003-05-28 21:03) [6]

System.Str(integer,string)

← →
Nick Denry (2003-05-28 21:32) [7]

var
s:string;
........
begin
s:=string(int);
........
если я не ошибаюсь.........

← →
МДа.. (2003-05-28 21:46) [8]

> Nick Denry © (28.05.03 21:32)

.((((((((((((((((((

← →
Mirovodin (2003-05-29 11:53) [9]

Взято из Kol.pas

Function Int2Str(Const Value: Integer): String; Asm XOR ECX, ECX PUSH ECX ADD ESP, -0Ch PUSH EBX LEA EBX, [ESP + 15 + 4] PUSH EDX CMP EAX, ECX PUSHFD JGE @@1 NEG EAX @@1: MOV CL, 10 @@2: DEC EBX CDQ IDIV ECX ADD DL, 30h MOV [EBX], DL TEST EAX, EAX JNZ @@2 POPFD JGE @@3 DEC EBX MOV byte ptr [EBX], "-" @@3: POP EAX MOV EDX, EBX CALL System.@LStrFromPChar POP EBX ADD ESP, 10h End;

← →
DVM (2003-05-29 12:04) [10]

function IntToStr(n:integer):string;
begin
str(n,result);
end; // End of function IntToStr

← →
Nick Denry (2003-05-29 21:27) [11]

Сорри, я чейта ступилллл %)

← →
Dmitrii_ (2003-05-31 17:46) [12]

>Mirovodin
Спасибо.

← →
_0$a_ (2003-06-01 01:10) [13]

Удалено модератором

← →
_0$a_ (2003-06-01 01:12) [14]

Удалено модератором

Как конвертировать Integer в строеовый тип? Найти похожие ветки