IntToStr без модуля SysUtils.

← →
Mazenrat (2002-09-16 15:36) [0]

Привет.

Поделитесь аналогом алгоритма преобразования IntToStr() на API. Не хочется использовать громоздкий модуль SysUtils.

← →
Alx2 © (2002-09-16 15:42) [1]

:)
см Val

← →
Alx2 © (2002-09-16 15:44) [2]

то есть я хотел сказать Str.

Пример из хэлпа:

function MakeItAString(I: Longint): string;

{ Convert any integer type to a string }
var
S: string[11];
begin
Str(I, S);
Result:= S;
end;

← →
Alx2 © (2002-09-16 15:46) [3]

С другой стороны, использование в uses модуля sysutils не такой уж большой вклад в размер ехешника дает.

← →
Almaz © (2002-09-17 01:03) [4]

> Alx2 © (16.09.02 15:46)
> С другой стороны, использование в uses модуля sysutils не
> такой уж большой вклад в размер ехешника дает.

Смотря что считать небольшим :) На D5 пустой проект без SysUtils весит ~16кБ а с SysUtils ~42кБ. Так стоит ли добавлять 26кБ только из-за одной функции ?

Удачи.

← →
Viktor Kushnir © (2002-09-17 07:20) [5]

Там такая куча полезных функций, что я не представляю как можно пользоваться только одной.

← →
Mirovodin © (2002-09-17 11:08) [6]

function Int2Str( 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;

Вот на API вариантик.

function Int2Str(Value : integer): string;
begin
SetLength(result, 15);
SetLength(result, wvsprintf(PChar(result), "%d", @Value));
end;

← →
Mazenrat (2002-09-17 13:14) [8]

Спасибо.

на будующее.... как они "это" сделали можно посотреть в исходниках саомго sysutils :)

IntToStr без модуля SysUtils. Найти похожие ветки