Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

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

 
default ©   (2004-07-01 19:30) [0]

за исключением Break, Exit, Continue, GoTo


 
Ega23 ©   (2004-07-01 19:31) [1]

Не понял


 
default ©   (2004-07-01 19:33) [2]

repeat until False два байта занимает...меньше кроме 1 некуда
ветку можно убивать)


 
Fay ©   (2004-07-01 19:34) [3]

;


 
GuAV ©   (2004-07-01 19:36) [4]

если я правильно понял вопрос, то
0 байт - это строка просто не откомпилировалась в результате оптимизации


 
default ©   (2004-07-01 19:37) [5]

ну, естест-но, ";" мне не интересовало)


 
Fay ©   (2004-07-01 19:39) [6]

i := 0;


 
GuAV ©   (2004-07-01 19:42) [7]

а зачем нужно? если для заполнения места в коде, то
asm
 NOP
end;


 
Fay ©   (2004-07-01 19:44) [8]

var
 i : Integer;
begin
 i := 0;
 while i<99 do
   begin
     Inc(i);
     ShowMessage("Значит так надо");
   end;
end;


 
default ©   (2004-07-01 19:54) [9]

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


 
GuAV ©   (2004-07-01 19:58) [10]


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

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


 
default ©   (2004-07-01 20:01) [11]

GuAV ©   (01.07.04 19:58) [10]
видимо ты очень хочешь чтобы не сбылось "уходя уходи"(c)


 
GuAV ©   (2004-07-01 22:35) [12]

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


 
Глеб ©   (2004-07-02 04:12) [13]

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;

:-)


 
Digitman ©   (2004-07-02 08:50) [14]


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


2 байта

CR+LF


 
GuAV ©   (2004-07-05 14:28) [15]


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

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


 
Digitman ©   (2004-07-05 14:53) [16]


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


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

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


 
default ©   (2004-07-05 15:33) [17]

и как это модераторы ещё не убили эту давно потерявшую смысл ветку...



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

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.024 c
1-1088931987
ida
2004-07-04 13:06
2004.07.18
заставить работать клавиатурные сокращения в динамич меню


11-1077180577
DAngel
2004-02-19 11:49
2004.07.18
Минимизация формы


3-1087522022
olhovik
2004-06-18 05:27
2004.07.18
Сортировка в Table


14-1088645857
QuasiLamo
2004-07-01 05:37
2004.07.18
Цвет значению


1-1089201468
zorik
2004-07-07 15:57
2004.07.18
Как сделать TRadioButton i TCheckBox ReadOnly