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

Вниз

Вышла новая версия чисто русского DELPHI !!!!   Найти похожие ветки 

 
Merlin   (2002-01-25 04:31) [0]

Примеры программ в новом синтаксисе:


Раз пошли на дело Чиста_В_Натуре(блин);
Типа
Икс : ТЛох;
Зелень : ТБабки;
Ё_Опа_Менты : Ё;
Конкретно
Икс := ТЛох.Найти();
Пробуем
Мотаем цикл
Зелень := Продал(Обменял(Купил(Обналичил(Перевел(Занял(Икс)))));
Отстегнуть_Долю(крыша, 10%);
пока (Икс < $1000000);
Рвем_Когти();
Подстава
блин Ё_Опа_Менты тады Мотаем_Срок(); // :(((
писец;
писец;


Для тех кто в танке :)

Type
EOpaMenty = class(EAbort);

procedure CHista_V_Nature();
Var
Iks : TLoh;
Zelen : TBabki;
begin
Iks := TLoh.Create();
try
repeat
Zelen := Prodal(Obmenial(Kupil(Obnalichil(Perevel(Zanial(Iks)))));
Otstegnut_Dolu(krysha, Zelen*0.1);
until (Iks < $1000000);
Rvem_Kogti();
except
on EOpaMenty do Motaem_Srok(); // :(((
end;
end;


 
Yaro   (2002-01-25 06:40) [1]

СУПЕР! Молодец, Merlin! (Хоть какой-то толк от Модераторов... шутка :)


 
fliz   (2002-01-25 10:42) [2]

очень прикольно, однако употреблять
"№ля" в коде ИМХО тебе не к лицу.
типа не солидно.

с налоговой поообщался?


 
Oleg Gashev   (2002-01-25 12:55) [3]

платим(Да):=(налоги<0.1);


 
Knight   (2002-01-25 16:47) [4]

В английской версии в процедуре отсутствует параметр blin, к тому же нигде не указан его тип...


 
Desdechado   (2002-01-25 18:25) [5]

блин = void


 
Dimka Maslov   (2002-01-25 18:53) [6]

except
on EOpaMenty do Motaem_Srok(); // :(((
end;


Ошибка компилятора Undeclared Idenifier: "Motaem_Srok"

Решение проблемы:
except
on EOpaMenty do Dat_Na_Lapu(Zelen); // :(((
end;



 
Knight   (2002-01-26 17:31) [7]

блин = void


Agree


2 Dimka Maslov
Zelen:=Verylongint


 
petr_v_a   (2002-01-26 17:35) [8]

похоже на скрипт 1С-бухгалтерии


 
wicked   (2002-01-26 17:36) [9]

2 petr_v_a ©
и задачи похожие решаются..... :))


 
Knight   (2002-01-26 17:48) [10]

Ну скажем так не всегда...


 
Merlin   (2002-01-29 00:06) [11]

Проблема!!! Новая компонента "Мерин 600" конфликтует с компонентой "Запорожец", постоянно Access Violation выскакиет, что посоветуете? :)


 
perov   (2002-01-29 07:44) [12]

Для начала установи компонент "КАМАЗ"


 
Knight   (2002-01-29 08:53) [13]

Запорожец выполняет теже функции, поэтому советую поставить RХcars и вперёд!!!


 
Andrey   (2002-01-29 11:15) [14]

Встречал такой конфликт. Это "Мерин 600" пытается обратится к свойству ТПепельница у "Запорожца". А у "З.." это свойство не предусмотрено конструкцией. Надо или выдрать где-нибудь ТПепельницу и попытаться запихнуть в ТДверцу "З..", или выкинуть ваш "З.." и как сказал panov установить "Камаз", там ТПепельница есть но там с извратом реализована ТЗаднееСидение. Тоесть в любом случае прийдется поработать кувалдой.

Я думаю лучше просто использовать два каких-нибудь "Мерина", фирма производитель "МеринМенс" гарантирует совместимость.

> Knight
"Запорожец выполняет теже функции" - в принципе да, но например загрузка на ТЗадниеСидния происходит через ТДвигатель который разработчики непонятно зачем спрятали в то место где у приличных машин (того же Мерина) ТБагажник или надо снимать заднее ТСтекло. Правда я слышал про патч установив который ТПередниеСидения таки начинают откидыватся но нигде невидел этот патч. IMHO единственное за счет чего "З.." покупают это за навороты в интерфейсе типа круглых ТФар.


 
Andrey   (2002-01-29 11:17) [15]

Пардон не panov, а perov.


 
Юрий Зотов   (2002-01-29 12:24) [16]

А вот как выглядит тот же алгоритм после консультации с программистом:

Пробуем // try
Мотаем цикл
Зелень := Продал(Обменял(Купил(Обналичил(Перевел(Занял(Икс)))));
Отстегнуть_Долю(крыша, 10%);
пока (Икс < $1000000);
в_конце // finally
Рвем_Когти();
писец; // end

И никаких "Мотаем_Срок". Поскольку "Рвем_Когти" здесь
выполняется всегда, даже при форс-мажоре "Ё_Опа_Менты".


 
vasco   (2002-01-29 13:21) [17]

>Юрий Зотов
Есть риск, что Икс всегда будет < $1000000
надо после Отстегнуть_Долю(крыша, 10%); вставить что-то типа:
кады ДОСТАЛО_ВСЕ()=В_НАТУРЕ тады КинутьВсех(Зелень);
что автоматически ведет к появлению "Ё_Опа_Менты" или "Ё_Опа_Наезд" и провоцирует на Рвем_Когти();


 
lel   (2002-01-29 20:28) [18]

все эти баги хорошо снимаються при использование своей библеотеки RxКрыша,состоящия из таких широко используемых компонентов как TКиллер, ТБратва, надстройки над системными дллками ТСвоиМенты, ТДепутат, ТФСБ и другие, только есть одно но, использование библиотеки очень быстро поедает системную зелень 8((. Поэтому библеотеку рекомендуеться использовать динамически во время выполнения. И внимательно читайте документацию , ее можно найти в любом книжном магазине называеться УК РФ, это часть РФДН, туда кроме указанного мануала входят такие бестстеллеры как АК РФ, ГК РФ, НК РФ и многие другие.
Желаю удачи в темных делах.
С уважение Алексей.


 
vasco   (2002-01-30 02:01) [19]

У нас народ к мануалам не приучен, ему проще в исходниках покопаться и все решить недокуменнтированными функциями
типа ДатьНаЛапу(Зелень);. Код получается гораздо эффективнее.



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

Форум: "Потрепаться";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.49 MB
Время: 0.004 c
14-43165
SV
2002-01-30 13:34
2002.03.14
Зухел connect...


14-43142
Dimka Maslov
2002-01-29 09:54
2002.03.14
Неисповедимы пути его...


14-43136
Polevi
2002-01-28 16:29
2002.03.14
IIS не поддерживает сервлеты :( Свинство просто..


6-43119
daos
2001-12-26 15:50
2002.03.14
Как принять сообщение через сокет? до меня не доходит...


1-43107
Miwa
2002-02-21 03:38
2002.03.14
Версия приложения.





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