Прикол на дельфи :-)

← →
jack128 © (2006-03-16 18:16) [0]

К слову о "читаемости" кода на дельфи/паскале.

Вот этот код вполне компилируется на Дельфе ;-)

function _(a,b:string):string; begin _:=a+b end; procedure TForm2.FormCreate(Sender: TObject); begin ShowMessage(_(_(_(_(^(,^%),^,),^,),^/)+^`+_(^(,_(^%,_(^,,_(^,,^/))))); end;

А вы говорите perl.. C++..

← →
Cash © (2006-03-16 18:18) [1]

:))))
А что прога выдает?
Что то я никак не вкуплю, что она должна выдать. :)))

← →
oldman © (2006-03-16 18:20) [2]

И в чем прикол?
Вполне читаемый код...

← →
Igorek © (2006-03-16 18:22) [3]

Опошлить можно что угодно.

← →
oldman © (2006-03-16 18:24) [4]

а что такое "вполне компилируется"?

Вот уж прикол...

← →
McSimm © (2006-03-16 18:25) [5]

Да уж :)))

← →
McSimm © (2006-03-16 18:26) [6]

p.s.
мои улыбки относятся к [0].

← →
Игорь Шевченко © (2006-03-16 18:27) [7]

Век живи, век учись :)

← →
Fay © (2006-03-16 18:29) [8]

Скопировал. Запустил. Говорит "hello hello"...
Не понял 8(

← →
oldman © (2006-03-16 18:29) [9]

> Игорь Шевченко © (16.03.06 18:27) [7]
> Век живи, век учись :)

промолчу...
во избежание...
:)))

← →
Джо © (2006-03-16 18:32) [10]

An identifier must begin with a letter or an underscore (_) and cannot contain spaces; letters, digits, and underscores are allowed after the first character.
Вот так фунт :)

← →
Marser © (2006-03-16 18:32) [11]

Оталенно догадываюсь, в чём суть, но только отдаленно... 8-0

← →
Fay © (2006-03-16 18:39) [12]

2 oldman © (16.03.06 18:29) [9]
Вас, видимо, распирает от гордости за себя любимого, который знаком со фтуками вида [0]. Мы все это поняли, спасибо, можете больше не трындеть.

← →
Плохиш © (2006-03-16 18:41) [13]

> jack128 © (16.03.06 18:16)

Афтар, дафай есчё :-)

← →
Romkin © (2006-03-16 18:41) [14]

Ну ты садист :))
Fay © (16.03.06 18:29) [8] Я тоже не нашел в руководстве, что так символы задавать можно :(
ShowMessage(^();

← →
McSimm © (2006-03-16 18:45) [15]

> Romkin © (16.03.06 18:41) [14]

я даже пользовался таким синтаксисом, например часто ^M писал...
пример очень красивый просто :)

← →
pasha_golub © (2006-03-16 18:45) [16]

Абалдеть!

ЗЫ Но код все равно читаемый ;)

← →
oldman © (2006-03-16 18:45) [17]

> Fay © (16.03.06 18:39) [12]
> 2 oldman © (16.03.06 18:29) [9]
> Вас, видимо, распирает от гордости за себя любимого, который
> знаком со фтуками вида [0].

Я это даже "фтуками" не считаю...
Найдите мне программера, который будет так кодировать.
"опошлить можно что угодно" (Igorek © (16.03.06 18:22) [3])

← →
Геро (2006-03-16 18:46) [18]

Где документировано такое поведение оператора ^ ? Я не нашел.

← →
Marser © (2006-03-16 18:50) [19]

> я даже пользовался таким синтаксисом, например часто ^M
> писал...

> Я тоже не нашел в руководстве, что так символы задавать
> можно :(
> ShowMessage(^();

Понятненько... Недокументированные хитрости...

> Найдите мне программера, который будет так кодировать.

BrainF*ck напоминает :-)

← →
McSimm © (2006-03-16 18:51) [20]

> Недокументированные хитрости...

Вряд ли.
просто сейчас у меня ни делфи ни справки от него нет.
но я уверен - там это есть.

← →
Геро (2006-03-16 18:53) [21]

> но я уверен - там это есть

В D6 я не нашел.

Если кто-то найдет — сообщите, пожалуйста.

← →
McSimm © (2006-03-16 18:59) [22]

про синтаксис (. .) тоже мало кто знает, хотя это точно тоже есть в справке :)

← →
Rule © (2006-03-16 19:00) [23]

Жека респект, смеялся долго :-)))
а по поводу кода то вполне читабельный, главное "буквы" знать, тоесть знать как его читать :-)))

← →
Romkin © (2006-03-16 19:04) [24]

Что-то мне намекает, что насчет ^ смотреть надо в хелп Turbo Pascal...
Может, наследство?

> [24] Romkin © (16.03.06 19:04)
> Что-то мне намекает, что насчет ^ смотреть надо в хелп Turbo
> Pascal...
> Может, наследство?

А ведь и точно, наследство :) Проверил, компилируется.

← →
Геро (2006-03-16 19:16) [26]

В справке по TP7 я тоже ничего не нашел.

Мдяяя, захватывающе, долго смеялся

Респект.

В каком месте для вас код читаемый? :) для меня нифига не читаемый. Не, я конешн примерно представляю, но....

> про синтаксис (. .) тоже мало кто знает, хотя это точно
> тоже есть в справке :)

Ы, расскажите а :)
А на счёт ^ тоже поясните, я не понял зачем так и где таблицу взять таких символов :) подумал что там смещение какое-то относительно ASCII, ан нет...

>Ы, расскажите а :)

The left bracket — [ — is equivalent to the character pair of left parenthesis and period — (. ; the right bracket — ] — is equivalent to the character pair of period and right parenthesis — .) . The left-parenthesis–plus–asterisk and asterisk–plus–right-parenthesis — (* *) — are equivalent to the left and right brace — { } .

По ^ сходу не нашел, может и правда в прошлых версиях было.

Но в исходниках встречается, например
case Key of
^H, ^I, ^J, ^M, ^V, ^X, #32..#255:

McSimm © (16.03.06 22:10) [31]
После ^ может стоять практически любой символ
Над ним выполняется операция chr and $1F

Ctrl+A -> #1 = ^A
Ctrl+B -> #2 = ^B
...

м?

McSimm © (16.03.06 22:10) [31]
По ^ сходу не нашел, может и правда в прошлых версиях было.

"^<символ>" - по моему, еще с досовских версий турбо-паскаля.

Ctrl-буква в досе всегда давал ввод символов 1 - 26. Напр Ctrl-Z символ 26 - конец файла. Поэтому при вводе файла на досовском edlin в конце файла жали Ctrl-Z.

Прикол на дельфи :-) Найти похожие ветки