FreePascal.ru

не придется. data2inc

уже понял. Не знал, что такая утилита есть у нас - спасибо за подсказку, zub

Добавлено спустя 4 часа 11 минут 27 секунд:
просто надо было знать, что есть утилита data2inc, тогда:

data2inc -B -A <ИМЯ-БИНАРНОГО-ФАЙЛА> <ИМЯ-ФАЙЛА&#46;inc> <НАЗВАНИЕ-КОНСТАНТЫ-В-INC_ФАЙЛЕ>

Лекс Айрин писал(а):а чем плох массив-константа?

Массив прийдется от руки вводить в исходник (или один из модулей) а уменя уже есть необходимые блоки по 5 - 10 кБ
Хочется же изящно решить этот вопрос...

Лабаю небольшую утилитку. ГУИ - на msegui, компактненькая такая программка получается, один EXEшник и все.
Теперь возникла необходимость включить в этот исполнимый файл бинарный кусок, не являющийся кодом. Этот бинарный блок потом будет включаться в генерируемые моей утилитой файлы.

Как это ...

stanilar писал(а):И, кстати, зачем вам WinAPI? Лучше сосредоточиться либо на андроид, либо на написание серверов под JavaScript/HTML5.

я сам уже 11 лет на Линуксе. Винды - на работе. Любительский проект.

за Рихтера - спасибо

Vadim писал(а):Я, в качестве локального источника, использую hlp-файл по WinAPI от Delphi 7.

Где-то диск валялся...

Если не лень кому, подскажите актуальную литературу по программированию на FreePascal под Винды. Или можно старинную по Дельфям юзать??
Где берете справку по win API ??

Александр
31 год
Россия, Ростовская обл.
Технолог 2-го сорта, ОАО "РЖД", Ремонт локомотивов

Эх, на FP написать бы операционку... Вот бы шороху было!

stanilar писал(а): Интересно как поведет себя приложение под win64.

Запустилось нормально под Win64 (4 Gb RAM)

Sergei I. Gorelkin писал(а):Надо исправлять компилятор, чтобы на таких примерах он выдавал ошибку, а не создавал неправильный .exe...

Кстати, да. Баг же??

Вот это уже дело...

Написал небольшую программку

program hangup;

uses sysutils;
type
spamarray = array &#91;0&#46;&#46;500000000&#93; of byte; //A half-gig array of bytes

var

i&#58; LongInt;
j&#58; LongInt;
z&#58; byte;
logfile&#58; text;
fatmass&#58; array &#91;0&#46;&#46;3&#93; of spamarray;

procedure ...

я запилил в 100 раз больший итератор и вместо сложения - умножение. задержка теперь заметна на глаз.

Пытаюсь нагрузить машину бесполезной работой:

program hangup;

{$mode objfpc}

uses Crt;

var
CyclesCount&#58; Integer = 1000000;
i&#58; Integer;
z&#58; Integer = 1;

BEGIN
for i &#58;= 0 to CyclesCount do
begin
z&#58;= z + i;
if z = 0 then
begin
asm
NOP;
end;
end;
end;
END&#46 ...