Главная страница
    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.036 c
1-1088948357
чудак
2004-07-04 17:39
2004.07.18
вопрос про PageControl


1-1088697879
ancara
2004-07-01 20:04
2004.07.18
Как бинарный файл в ресурсы засунуть?


6-1085038174
Bizons
2004-05-20 11:29
2004.07.18
Proxy


3-1088072404
alex z
2004-06-24 14:20
2004.07.18
delphi + firebird


14-1088184065
XeLax
2004-06-25 21:21
2004.07.18
Узнать имя сообщения по номеру





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский