Скачать: CL | DM;

Как конвертировать 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c