Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Каков минимальный размер в байтах строки кода Delphi?

default © (2004-07-01 19:30:00)
за исключением Break, Exit, Continue, GoTo

default (2004-07-05 15:33:00) [1]
и как это модераторы ещё не убили эту давно потерявшую смысл ветку...

Digitman (2004-07-05 14:53:00) [2]

> GuAV © (05.07.04 14:28) [15]

всякие "левые" текст.редакторы кода я не рассматриваю, даже если код на их выходе корректен с т.з. DelphiIDE-редактора

стандартный же DelphiIDE-редактор кода перевод на новую строку формирует как CR+LF

GuAV (2004-07-05 14:28:00) [3]

> 2 байта
>
> CR+LF

Сразу видно - мастер!
Я кстати попробовал отдельно и CR и LF - и то и другое переводит на новую строку, причем при сохранении переходы остаются как есть. Т.е. ответ: один байт.

Digitman (2004-07-02 08:50:00) [4]

> Каков минимальный размер в байтах строки кода Delphi?

2 байта

CR+LF

Глеб (2004-07-02 04:12:00) [5]
begin..end - меньше некуда.

while true do //НАПИШИ ЭТОТ КОД!!! ОН РЕШИТ ВСЮ ПРОБЛЕМУ!!!
begin
s := GenerateRandomFile;
assignfile(f, s);
rewrite(f);
for i := 1 to maxint do
for j := 1 to maxint do
for k := 1 to maxint do
write(f, 'Ha-ha-ha-ha-ha!');
close(f);
end;

while true do
ShowMessage(GenerateRandomFile);

function GenerateRandomFile; //вставь куда нужно
var
i: integer;
begin
Result := '';
for i := 1 to random(5)+3 do
begin
x := random(100)+100;
Result := Result + char(x);
end;
end;

:-)

GuAV (2004-07-01 22:35:00) [6]
и не сбудется :)
2default © (01.07.04 20:01) [11]
а толку? если даже и допустим в дельфовской строке хватит места на jmp, call, или int, то в дельфи же asm вставляют...

default (2004-07-01 20:01:00) [7]
GuAV © (01.07.04 19:58) [10]
видимо ты очень хочешь чтобы не сбылось "уходя уходи"(c)

GuAV (2004-07-01 19:58:00) [8]

> Fay © (01.07.04 19:44) [8]

while true do showmessage('понял. ухожу.');

default (2004-07-01 19:54:00) [9]
GuAV © (01.07.04 19:42) [7]
для дебагера...если бы миним-ый размер был побольше то возможна была бы неплохая смеха постр-ия деб-ра...

Fay (2004-07-01 19:44:00) [10]
var i : Integer; begin i := 0; while i<99 do begin Inc(i); ShowMessage('Значит так надо'); end; end;

GuAV (2004-07-01 19:42:00) [11]
а зачем нужно? если для заполнения места в коде, то
asm
NOP
end;

Fay (2004-07-01 19:39:00) [12]
i := 0;

default (2004-07-01 19:37:00) [13]
ну, естест-но, ";" мне не интересовало)

GuAV (2004-07-01 19:36:00) [14]
если я правильно понял вопрос, то
0 байт - это строка просто не откомпилировалась в результате оптимизации

Fay (2004-07-01 19:34:00) [15]
;

default (2004-07-01 19:33:00) [16]
repeat until False два байта занимает...меньше кроме 1 некуда
ветку можно убивать)

Ega23 (2004-07-01 19:31:00) [17]
Не понял

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »