Как на Delphi обратиться к Господу ? ;)

← →
VID © (2002-12-30 21:34) [0]

в факе не нашёл :)))

← →
Mike B. © (2002-12-30 21:36) [1]

Типа: "Отче наш..."

← →
p77 © (2002-12-30 21:41) [2]

Ah, my god!:)

← →
vuk © (2002-12-30 21:53) [3]

Обращение по указателю:

const
a : array[0..3] of char = "GOD!";
var
p : pointer absolute a;

...
integer(P^) := 0;

← →
Asteroid © (2002-12-30 21:54) [4]

var god_connection: THandle; procedure ConnectToGod( god: TGod ); var church: TChurch; begin church := TChurch.Create(); if ( church = nil ) then begin ShowMessage( "Unable to create church" ); exit; end; god_connection := church.Connect( god ); if ( god_connection = 0 )then ShowMessage( "God busy, try again later" ); curch.Free(); end;

← →
a3m © (2002-12-30 21:58) [5]

GOD.SendMessage("ваше обращение"); :-)))

← →
Слесарь Матерящийся © (2002-12-30 22:19) [6]

Очень просто: открываешь устройство NULL: и засылаешь туда текст молитвы в цикле

← →
a3m © (2002-12-30 22:28) [7]

> Слесарь Матерящийся © (30.12.02 22:19)

а зачем в цикле то? самозависания для? :)

← →
Слесарь Матерящийся © (2002-12-30 22:45) [8]

>самозависания

Во-первых, за количество нам у Него зачтётся, во-вторых, будем вызывать Application.ProcessMessages()

:o)

← →
Uncle Archi © (2002-12-30 23:50) [9]

Опять людям делать нечего!!!!

← →
Вадим © (2002-12-31 00:57) [10]

А после всех операций с God: TGod необходимо вызвать God.Free;

← →
Мазут Береговой (2002-12-31 09:50) [11]

> Слесарь Матерящийся © (30.12.02 22:19)
> Очень просто: открываешь устройство NULL: и засылаешь туда
> текст молитвы в цикле

Не надо в цикле, а то у него будет "stack overflow" и придется все сбрасывать и грузить все сначала. А так еще пожить хочется...

← →
Asteroid © (2002-12-31 17:03) [12]

Не забывайте, у кого-то может быть несколько богов, так что сначала god := TGod.Create( Jesus.Father.Name ) или еще что-нибудь :))

← →
Reindeer Moss Eater (2002-12-31 17:25) [13]

TGod = class(TJahve,IFather,ISon,IHollySpirit)
end;

← →
AZ © (2002-12-31 18:11) [14]

Не засирайте мозги всевышнему. У него и так хватает забот.

← →
VID © (2002-12-31 19:30) [15]

Выражение AZ (AZ © (31.12.02 18:11)) следует понимать как:
НЕ забывайте вызывать FreeMem() после ваших обращений ;)

← →
AZ © (2002-12-31 19:48) [16]

В самую центру!

← →
Rouse_ © (2002-12-31 20:52) [17]

А Бог смотрит на нас сверху и охреневает :))

← →
AZ © (2002-12-31 21:25) [18]

А может рядом...:)

Ребята, я атеист. Но все же прошу - не надо всуе. Не то что грешно, а просто некрасиво это как-то, понимаете? Не только ведь о себе надо думать. Есть ведь и люди верующие, и они ничем не хуже нас. Давайте все же хоть немного уважать друг друга. Ведь именно с этого все и начинается, а вовсе не с улыбки.

да это же всего лишь шутка... шутка.

hGod:=GetStockObject(GOD);
wParam:=GetStockObject(MONEY);
lParam:=1000000;
hr:=Wish(hGod, wParam, lParam);
if not failed(hr) then begin
Say(hGod, "Thank You");
end;

А если предположить что Бог=Билл Гейтс????

2kostya2000
мир -- windows, мы -- приложения. одни побольше, другие поменьше... а кто пользователь? :)

>VID © (30.12.02 21:34):
>Как на Delphi обратиться к Господу ? ;)
>в факе не нашёл :)))

Послушайте мнение Юрия Зотова, и задумайтесь,
стоит ли задавать вопрос в такой форме?

А если решите, что все же, стоит, прочитайте
мнение Юрия Зотова © (01.01.03 01:24) еще раз.

А если, тем не менее, решитесь вновь, вспомните,
что Delphi - это продукт господина Борланда, а вовсе не Бога.

И, наконец, если Вы такой упорный, то обращайтесь прямо
на языке ассемблера - пусть хоть самое первое зависание
компа научит Вас чему-то.

Может я попробую решить сомнения господина VIDа ?

Поскольку Бог - вездесущен (т.е. он везде в том числе и в Delphi) - то любое обращение - есть по-сути обращение к Богу :)

Хотя IMHO ближе всего к истине:
Слесарь Матерящийся © (30.12.02 22:19)
>Очень просто: открываешь устройство NULL: и засылаешь туда
>текст молитвы в цикле

ибо NULL - вне времени и пространства :)

С уважением, воин Бога - kronprince.

Как на Delphi обратиться к Господу ? ;) Найти похожие ветки