Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Вниз

Каков минимальный размер в байтах строки кода 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.037 c
1-1089203162
isma666
2004-07-07 16:26
2004.07.18
Не активное приложение


14-1088488006
Думкин
2004-06-29 09:46
2004.07.18
С днем рождения! 29 июня


1-1089112517
Borealis
2004-07-06 15:15
2004.07.18
О переводе исходников с языка C++ на Object Pascal


8-1083168988
Черя
2004-04-28 20:16
2004.07.18
бегунок-прокручивание звукового файла?


8-1077790323
Umnik666
2004-02-26 13:12
2004.07.18
И снова PNG





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский