Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

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




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




Наверх





Память: 0.75 MB
Время: 0.025 c
3-42939           Саша                  2002-02-06 11:47  2002.03.14  
Как записать значение в BLOB поле


6-43128           SemFLY                2001-12-26 22:02  2002.03.14  
Как вытащить символ из посланного сообщения ? TServerSocket - TClientCosket


3-42927           Sergant               2002-02-14 15:14  2002.03.14  
Выравнивание столбцов по ширине


14-43140          Дима566               2002-01-29 16:39  2002.03.14  
ОН УМЕР!!!


1-43027           Michael C             2002-02-26 10:03  2002.03.14  
Ув. мастера. Немогу сравнить два str значения...