Галерея красивого кода

← →
wicked © (2004-05-19 20:12) [40]

> Verg © (19.05.04 20:05) [39]

каждый думает в меру своей распущенности...
я не считаю, что сказал что-то неприличное, а если так сочтет Adder, то пусть она и упрекнет...

← →
Verg © (2004-05-19 20:33) [41]

> [40] wicked © (19.05.04 20:12)

О как! Я-то думал, что я думаю, потому что это требует моя жизнь и моя профессия, а оно-то оказалось - это просто от меры распущенности :))))

Я плякаль :)))))

Чем более программер распущен, тем более вдумчив программер!

P/S/ Для справки: Меру неприличия определяет модератор.

← →
wicked © (2004-05-19 20:48) [42]

> Я плякаль :)))))

как хорошо, что я кого то заставил плакать.... :))

← →
имя (2004-05-19 20:51) [43]

Удалено модератором
Примечание: R/O 7 дней

← →
Verg © (2004-05-19 20:55) [44]

> [42] wicked © (19.05.04 20:48)

Во-во, я ж и говорю - садо-мазо :))) А как же, редко кому нравится, что человек делает, особенно любимый, да еще и женщина...
Бездельник - оно лучше!

Он "рыдать" меня заставил
И больше выдумать не смог......:))))))))))

Ну повеселился, спасибо! :))

← →
wicked © (2004-05-19 21:01) [45]

> Verg ©
неа, вот определенно не могу я понять хода ваших мыслей... :)
ну да ладно, проехали....

← →
Alx2 © (2004-05-19 21:02) [46]

>А как же, редко кому нравится, что человек делает,
>особенно любимый, да еще и женщина...
Интересно, как сие пишется грамматически верно? Сильно режет глаз, да не пойму где... Гуру русского языка остались? Или время теперь такое?

← →
Verg © (2004-05-19 21:03) [47]

> [43] Юрий Зотов © (19.05.04 20:51)

Ну, если уж говорить про "тяжелые" case-ы, то

procedure TClentPtocessor.OnBCM_RECEIVE(var Msg: TMessage); begin SPCTimer.Enabled:=false; SPCTimer.Enabled:=true; RecCount:=RecCount+1; BytesReceived:=BytesReceived+PTcpPacket(Msg.LParam)^.DataLength+Sizeof(TTCPPacket); if (Bridge<>nil) and SlaveMode then begin Case PTcpPacket(Bridge.ReceivedData)^.PType of tptPostResult : ProcessQ(PPostResultPacket(Bridge.ReceivedData)^.MasterQueId, PPostResultPacket(Bridge.ReceivedData)^.SlaveQueId); tptDelque : ProcessQ(PDelQuePacket(Bridge.ReceivedData)^.MasterQueId, PDelQuePacket(Bridge.ReceivedData)^.SlaveQueId); tptPagType : ProcessType(PPagTypePacket(Bridge.ReceivedData)); tptUserInfo : ProcessUser(PUserInfoPacket(Bridge.ReceivedData)); tptMsgInfo : StoreArchive(PMsgInfo(Bridge.ReceivedData)); tptMaxLength : SetMaxLength(PMaxLengthPacket(Bridge.ReceivedData)^.MsgCut<>0, PMaxLengthPacket(Bridge.ReceivedData)^.MaxMsgLen, PMaxLengthPacket(Bridge.ReceivedData)^.ShowPasswd); tptOpers : ProcessOpers(POpersPacket(Bridge.ReceivedData)); tptConfers : ProcessConfs(PConfersPacket(Bridge.ReceivedData)); tptSetAdmin : ProcessAdmin(PAdminPacket(Bridge.ReceivedData)); tptSetLastId : SetLastId(PSetLastIdPacket(Bridge.ReceivedData)^.ArchId); tptConMsg : if Not LockConsole then StoreConsole(PConMsg(Bridge.ReceivedData)); tptSetLastCId : SetLastCId(PSetLastCIdPacket(Bridge.ReceivedData)^.ConsId); tptInfoSvcs : ProcessInfoSvcs(PInfoServicesPacket(Bridge.ReceivedData)); tptOutMsg : ProcessOutMsg(POutMsgPacket(Bridge.ReceivedData)); tptEraseHasp : EraseHasp; tptConfMsg : ProcessConfMsg(PConfMsgInfo(Bridge.ReceivedData)); end; end; postMessage(Handle, CM_MYUPDATE,0,0); end;

← →
Sabak (2004-05-19 21:06) [48]

program i;
begin
end.
просто и со вкусом:)))))

← →
Verg © (2004-05-19 21:16) [49]

Хм... А вот кто может объяснить - что тут происходит?

> Verg © (19.05.04 21:16)
> Хм... А вот кто может объяснить - что тут происходит?

(Шепотом) ЮЗ r/o поставили... Кто же теперь...

Удалено модератором
Примечание: Флуд

Галерея красивого кода Найти похожие ветки