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


---

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

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

Наверх

Память: 0.44 MB
Время: 0.004 c