Ахтунг!

← →
Nechk@ssoff (2006-03-29 10:29) [0]

В Орешнике нашел кусочек кода который выдает одну случайную букву англ.языка,ниже приведен такой же код только для русского языка но он невыдает русские буквы.Пожалуйста подскажите правильный код!

← →
TUser © (2006-03-29 10:34) [1]

В Орешнике есть код для русского языка. Надо 26 на 32 заменить.

← →
@BraIN © (2006-03-29 10:36) [2]

Ого :) По Орешнику уже учатся :) Ну-ну..

← →
Nechk@ssoff (2006-03-29 10:42) [3]

> TUser © (29.03.06 10:34) [1]

C 32 получается расширеная раскладка т.е. выдает буквы(англ.) и символы(?:%;№")

← →
McSimm © (2006-03-29 10:46) [4]

Это волшебный орех.
Если вы просто замените 26 на 32 в коде, то он не переключится на генерацию русских букв.
Есть только один способ не нарушить магию ореха - копировать его код себе в проект полностью, тогда не нарушается его целостность.
Несколько советов :
Копировать лучше мышью из контекстного меню. Клавиатурой тоже можно, но вероятность приживания уменьшается.
Старайтесь долго не держать его в клипбоарде.
Желательно сразу после вставки в проект сохранить, не держите орех не сохраненным в редакторе дольше 5 минут.

Если вы все сделаете правильно, код заработает и будет генерировать русские буквы.

← →
Gero © (2006-03-29 10:50) [5]

> Ого :) По Орешнику уже учатся :) Ну-ну..

Что правда то правда :))

Только причем здесь Ахтунг?

← →
Nechk@ssoff (2006-03-29 10:50) [6]

А может в 12часов ночи?Что бы на все100%?

← →
McSimm © (2006-03-29 10:52) [7]

я серьезно, попробуй

← →
Gero © (2006-03-29 10:53) [8]

Ха-ха-ха! :)))

← →
Nechk@ssoff (2006-03-29 10:57) [9]

> McSimm © (29.03.06 10:52) [7]

Попробовал.работает.А в чем хитрость?

← →
Gero © (2006-03-29 10:58) [10]

> Nechk@ssoff (29.03.06 10:57)

Сказали же — магия ореха :)

← →
Внук © (2006-03-29 11:01) [11]

Только через 12 часов этот орех превращается в тыкву - будь готов

← →
Der Nechk@ssoff © (2006-03-29 11:03) [12]

> Gero © (29.03.06 10:58) [10]

Мы,смертные,в магию неверим.

← →
McSimm © (2006-03-29 11:03) [13]

Кстати, есть рецепт как закрепить магию этого ореха навсегда, сделать ее своей частью. Тогда вы сами сможете писать этот код в проекте и он всегда будет работать.

Для этого необходимо постараться понять что в этом коде написано

удачи :)

← →
Kerk © (2006-03-29 11:04) [14]

:D Орех всем орехам орех

← →
Pazitron_Brain © (2006-03-29 11:22) [15]

Nechk@ssoff (29.03.06 10:29)
Мой вопрос :). Делал искуственный интеллект :).

← →
Gero © (2006-03-29 11:25) [16]

> Мой вопрос :). Делал искуственный интеллект :).

А, так это он задавал вопросы! Тогда все становится на свои места.

← →
Гарри Поттер © (2006-03-29 11:34) [17]

Сильно. Тоже не сразу понял. ;-))

← →
Kerk © (2006-03-29 12:25) [18]

Pazitron_Brain © (29.03.06 11:22) [15]
Мой вопрос :).

А ответ мой. :)
Мы вошли в историю :))

← →
Pazitron_Brain © (2006-03-29 13:09) [19]

Kerk © (29.03.06 12:25) [18]
:)).

← →
Inco (2006-03-29 13:34) [20]

:))))))))))))))))))

Действительно, ветка - полный АХТУНГ!!

Наверняка полку верящих в магию прибыло!

← →
Ketmar © (2006-03-29 13:58) [21]

хоть бы ссылку дали...

← →
McSimm © (2006-03-29 14:36) [22]

ссылку куда ил на что ?

← →
Ketmar © (2006-03-29 14:38) [23]

на волшебный орех: любопытно же. ну да ладно, я уже сам нашёл.

← →
DbGrid (2006-03-29 17:02) [24]

> Ого :) По Орешнику уже учатся :) Ну-ну..

))))))))) ЛОЛ

← →
Parus © (2006-03-29 17:18) [25]

А в чём смех ореха?

← →
Курдль © (2006-03-29 17:24) [26]

> Parus © (29.03.06 17:18) [25]
> А в чём смех ореха?

Я тоже не понял. Человек задал вопрос. Ему дали неправильный ответ. Он задал еще один вопрос - ему дали еще одни неправильный ответ.

← →
McSimm © (2006-03-29 17:26) [27]

а почему неправильный ?

← →
Parus © (2006-03-29 17:40) [28]

> ему дали еще одни неправильный ответ.

Я копировал всё работает.

← →
Курдль © (2006-03-29 17:45) [29]

> McSimm © (29.03.06 17:26) [27]
>
> а почему неправильный ?
>

Не
Label1.Caption := Char(Random(26)+Ord("a"));
а
Label1.Caption := Char(Random(26)+Ord("A"));

← →
БГ (2006-03-29 17:45) [30]

> Parus © (29.03.06 17:40) [28]
> Я копировал всё работает.

А попробовал сам набрать и неработает? :-))) В этом и смех ореха.

← →
IceBeerg © (2006-03-29 18:21) [31]

БГ (29.03.06 17:45) [30]
А попробовал сам набрать и неработает? :-))) В этом и смех ореха.
А я набрал и все равно работает 8(

← →
Kerk © (2006-03-29 18:23) [32]

Курдль © (29.03.06 17:45) [29]

Думать не пробовал?

← →
oldman © (2006-03-29 18:24) [33]

> Nechk@ssoff (29.03.06 10:29)
> В Орешнике нашел кусочек кода который выдает одну случайную
> букву англ.языка,ниже приведен такой же код только для русского
> языка но он невыдает русские буквы.Пожалуйста подскажите
> правильный код!

Модеры!!!
В Орешник!!!
:)))

← →
БГ (2006-03-29 18:24) [34]

> А я набрал и все равно работает 8(

Ты неправильно набирал, приземленная ты субстанция, нарушил все таинство магии программирования орехов :-))

← →
IceBeerg © (2006-03-29 18:31) [35]

БГ (29.03.06 18:24) [34]
Ты неправильно набирал, приземленная ты субстанция, нарушил все таинство магии программирования орехов
Аааа, все, вкурил :)

← →
Parus © (2006-03-29 20:56) [36]

этот орех вот хитрость:
_________________
Россия:
Label1.Caption := Char(Random(32)+Ord("а"));
____________
English:
Label1.Caption := Char(Random(26)+Ord("a"));
_________________
Мы ищем отличия:
1) Rus)Random(32)
Eng) Random(26)
2)Не вооружённым глазиком не видно,
но я тут-же понял:
Rus)Ord("а")
Eng)Ord("a")
Второе отличие...Гм...Гм... :в Русском русская А
В Англии англисская A
_______________
Вот вся хитрость, а в полночь орех становиться тыквой!

← →
Гарри Поттер © (2006-03-29 21:19) [37]

> Parus © (29.03.06 20:56) [36]

Ну молодца! Теперь ты тоже посвященный!

← →
Джо © (2006-03-29 21:34) [38]

> [36] Parus © (29.03.06 20:56)

Эх, блин, всю малину испортил :( Лежал себе орех, никого не трогал...

← →
McSimm © (2006-03-29 23:05) [39]

>Parus © (29.03.06 20:56) [36]
>Мы ищем отличия:

Лучше не отличия искать, а просто понять что и как происходит в этих выражениях.

← →
Marser © (2006-03-29 23:21) [40]

> [36] Parus © (29.03.06 20:56)

Молодец, Руслан!

← →
Andy BitOff © (2006-03-30 01:32) [41]

Наконец-то =)

← →
Andy BitOff © (2006-03-30 02:04) [42]

Parus © (29.03.06 20:56) [36]
Отличия, это хорошо. А смысл-то понятен? Почему Rus Random(32), а Eng Random(26) и для чего +"a"?

← →
Германн © (2006-03-30 02:41) [43]

Ну надоело уже!
Оставьте орех в покое!
Кто понял сразу, тот понял.
Кто не понял, тот имеет возможность понять!

← →
Marser © (2006-03-30 02:50) [44]

А что, мне нравится, что 11-летний мальчик уже мыслит выше уровня "Орешника".

← →
Германн © (2006-03-30 03:01) [45]

> Marser © (30.03.06 02:50) [44]
>
> А что, мне нравится, что 11-летний мальчик уже мыслит выше
> уровня "Орешника".
>

А кто этот мальчик 11-ти лет?

← →
Marser © (2006-03-30 03:11) [46]

Parus

← →
Думкин © (2006-03-30 07:59) [47]

> Parus ©

Измените пожалуйста данные по рождению. Вы лжете. А это настраивает отрицательно. Говорю как отец у которого сыну 12 лет. Противно наблюдать за вашими кривляньями.

← →
tsa (2006-03-30 08:44) [49]

> tsa (30.03.06 08:44) [49]

Нет. Ясли.

← →
tsa (2006-03-30 09:23) [51]

> [50] Думкин © (30.03.06 08:57)

Кто, не имея знаний, делает вид, что знает, тот болен. (Дао Дэ Дзин)
"Какие ваши доказательства"? (Арни)

> tsa (30.03.06 09:23) [51]

vrem - ты пиши яснее, а то некузяво. А ссылками я и тебяя засс..... угу. Высказывайтесь по сути.

← →
tsa (2006-03-30 09:38) [53]

Нда, от полученного вчера инсайта что ли?
Думкин, так ведь меньше 1-цы было, что же Вы так ;)

> tsa (30.03.06 09:38) [53]

?
Мы по китайски не врозумляем.
А затмение засняли, потом в бане всю копоть с затмения смыли. :)
Все-таки, если хотите не в игнор - излагайте яснее. И к Арни прислушайтесь. Для начала.

> Вы лжете.

Нет они говорят правду.
и даже реальное имя узнали через анкету!

> А смысл-то понятен? Почему Rus Random(32), а Eng Random(26)
> и для чего +"a"?

Не очень, но понятен: +Ord("А") //Прибавляем код символа"А", т.к. символы в таблице кодировки сиволов находятся все рядом и первый символ:"А".
Random(32)т.к в русском язе 33 буквы а тут 32, рандом может выдать и 0, тогда получаем букву "А"(если 0)
___________________________
Не очень понятно я выразился.

вполне понятно, все верно

> вполне понятно, все верно

Правда?

почти :)
есть ньюанс с 33 буквами и буквой Ё, но это мелочи

> есть ньюанс с 33 буквами и буквой Ё, но это мелочи

А это орех её не даёт вот код для проверки:procedure TForm1.Button1Click(Sender: TObject); var I:integer; begin label1.Caption:=""; for i := 0 to 31 do begin label1.Caption:=label1.Caption+char(i+ord("а")); end; end;

Потому что ее код $A8 для заглавной и $BA для прописной
Попробуй в своем коде
for i := 0 to 255 do
label1.Caption:=label1.Caption+char(i);

← →
Kirr (2006-03-30 19:03) [65]

> McSimm © (29.03.06 10:46) [4]
>Это волшебный орех.

> Nechk@ssoff (29.03.06 10:57) [9]
>
>
> > McSimm © (29.03.06 10:52) [7]
>
> Попробовал.работает.А в чем хитрость?

Класс! Класс! Класс!! Bолшебный орех! Надеюсь, McSimm, стал автором исторического момента. :)

← →
tsa (2006-03-31 10:46) [67]

>читай Parus
играй на флейте водосточных труб

> Parus

Что у тебя с сайтом?(фломастеры купил?)

Ахтунг! Найти похожие ветки