Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.14;
Скачать: CL | DM;

Вниз

Вышла новая версия чисто русского 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;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.011 c
3-42908
Draculenok
2002-02-13 15:00
2002.03.14
Для локальной сети


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


3-42906
dar
2002-02-13 07:46
2002.03.14
Access и Delphi


1-43034
Mans2k
2002-02-26 14:15
2002.03.14
Как из Delphi перезать указатель в C++?


6-43123
Romul
2001-12-26 16:46
2002.03.14
MDaemon : WinSock Error Software caused a connection abort