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