StrToInt и IntToStr без sysutils.

← →
Mazenrat (2002-09-20 15:17) [0]

Привет.

У меня такая проблемка. В приложении на чистом API нужно реализовать преобразование StrToInt. Добавлять модуль sysutils для применения функции StrToInt я не хочу, чтобы не увеличивать размер программы. Помогите.

procedure StepTrack(up: boolean); var TrackNum, MaxTrack: cardinal; TrackInfo: array[0..20] of char; begin ... TrackNum := StrToInt(TrackInfo); MaxTrack := StrToInt(TrackInfo); ...IntToStr(TrackNum)... ... end;

← →
qube (2002-09-20 15:22) [1]

в SysUtils же все исходники есть

← →
Mazenrat (2002-09-20 15:24) [2]

А толку с них? В любом случае, чтобы эти функции зараболи, нужно почти весь SysUtils в свою программу перенести.

← →
MBo (2002-09-20 15:30) [3]

>Mazenrat
Тебе уже и на этом форуме и на других говорили:

VAL

А еще ассемблерную процедуру писали
Все не нравится?

← →
Mazenrat (2002-09-20 15:33) [4]

> >Mazenrat
> Тебе уже и на этом форуме и на других говорили:
>
> VAL
>
> А еще ассемблерную процедуру писали
> Все не нравится?

Да, это верно, но ни одна из них не работает в моём случае.

← →
Андрей Прокофьев (2002-09-20 15:37) [5]

Вот, в качестве шутки:

function ToInt(S : String) : Integer;
var
N, i, P : Integer;
begin
N := 0;
P := 1;
for i := Length(S) downto 1 do
begin
N := N + (Ord(S[i]) - Ord("0")) * P;
P := P * 10;
end;
Result := N;
end;

← →
qube (2002-09-20 15:39) [6]

> А толку с них? В любом случае, чтобы эти функции зараболи,
> нужно почти весь SysUtils в свою программу перенести.

1) Ты уверен?
Я посмотрел, обнаружил только вызов Val, FormatStr, FormatBuf.

2) А насколько увеличивается exe, если подключить SysUtils (это без наезда, интересно просто)?

← →
MBo (2002-09-20 15:45) [7]

>но ни одна из них не работает в моём случае
вообще-то Val работает уже, наверно, лет 30, и пока справлялась

← →
qube (2002-09-20 15:51) [8]

> вообще-то Val работает уже, наверно, лет 30, и пока справлялась

во-во, причем и в том же самом sysutils она и используется.

← →
alena.svt (2002-09-20 19:24) [9]

qube © (20.09.02 15:39)
А насколько увеличивается exe, если подключить SysUtils (это без наезда, интересно просто)?

На 25,09 кб

← →
Man-In-Red (2002-09-20 20:34) [10]

> alena.svt © (20.09.02 19:24)

> На 25,09 кб

Серьезный размер!
По-моему сейчас 21 век, и то время когда самый крутой HDD был весом под 300 килобайт, уже давно-давно прошло…
+- 25 кб, по-моему, этим уже никого не испугаешь…
Забудьте то, что я только что сказал, без наездов!

← →
PaRL (2002-09-20 21:06) [11]

Не знаю, я тоже считаю, что переживать особо не стоит, однако я думаю, что это что-то вроде првил хорошего тона, как например использовать в процедурах var-параметры...

ЗЫ Некоторые даже тип integer "освобождают", чтобы не увеличивалась загрузка (4 байта).

← →
Aralekin (2002-09-21 13:59) [12]

Нееее....Мужик...Тут такая штука.
Если ты пишешь обычное Апп, то 25 Кило погоду не делают.
Но! Насколько я понимаю ты лобаешь что-то типа трояна или вируса(на дельфях :=[] )..Поэтому тебе так важен размер..Ты не пробовал ASPack. Сжимает он зверско, сам пользовался для трояна...

Но все-таки по-моему лучше использовать старый добрый VAL или перепиши все на Асме :)))

← →
Man-In-Red (2002-09-21 16:26) [13]

Вирь - это уже другой разговор :)

StrToInt и IntToStr без sysutils. Найти похожие ветки