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




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




Наверх






Память: 0.74 MB
Время: 0.017 c
3-42921           tmp_user              2002-02-14 03:50  2002.03.14  
Замена редактора в DBGrid e


3-42946           Люк                   2002-02-15 11:20  2002.03.14  
ADO в Delphi


3-42949           Baks                  2002-01-21 21:15  2002.03.14  
ошибка: Тable lavel changed


3-42973           Di_wind               2002-02-13 20:23  2002.03.14  
Access +Delphi+DAO


3-42955           Руст                  2002-02-08 08:16  2002.03.14  
Как упаковать таблицу