Код
От: neiroman Украина  
Дата: 12.08.06 04:14
Оценка: 9 (3) :))) :))) :))) :))) :))) :))) :)) 
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[ AfoPch]).PointerNapr.Objects[AfoN]).Poin terPut.Objects[AfoPut]).KolKm:=0;
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm:=0;
for i:=0 to TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).PropKiloms.Count-2 do
begin
 if (TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objec ts[AfoPch]).PointerNapr.Objects[AfoN]).P ointerPut.Objects[AfoPut]).PropKiloms.Objects[i]).Prop) or
    (TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objec ts[AfoPch]).PointerNapr.Objects[AfoN]).P ointerPut.Objects[AfoPut]).PropKiloms.Objects[i]).Nest) then
  begin
   TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm:=
    TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm+1;
   j:=j+1;
  end
 else
  TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolKm:=
   TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolKm+1;
 TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Object s[AfoPch]).PointerNapr.Objects[AfoN]).Po interPut.Objects[AfoPut]).PropKiloms.Objects[i]).Nom:=j;
end;
TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Object s[AfoPch]).PointerNapr.Objects[AfoN]).Po interPut.Objects[AfoPut]).PropKiloms.Objects[
   TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).PropKiloms.Count-1]).Nom:=
 TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Object s[AfoPch]).PointerNapr.Objects[AfoN]).Po interPut.Objects[AfoPut]).PropKiloms.Objects[
     TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).PropKiloms.Count-2]).Nom;
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolKm:=
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolKm*10;
icq# 348-436-436 Играет silent
Слова, пустые слова, подумал Стормгрен. Слова, за которые прежде люди дрались и умирали, но никогда больше не станут за них ни умирать, ни драться. И от этого мир станет лучше.
Re: Код
От: w00zle  
Дата: 12.08.06 08:11
Оценка:
Здравствуйте, neiroman, Вы писали:

А можно вопрос?
Что за тематика проекта?
---
Woozle
---
w00zle.
Re[2]: Код
От: neiroman Украина  
Дата: 12.08.06 09:20
Оценка:
W>А можно вопрос?
W>Что за тематика проекта?
Это не мой шедевр , поэтому не знаю.
icq# 348-436-436 Играет Nickelback — Leader Of Men
Слова, пустые слова, подумал Стормгрен. Слова, за которые прежде люди дрались и умирали, но никогда больше не станут за них ни умирать, ни драться. И от этого мир станет лучше.
Re[2]: Код
От: kpumuk Украина http://kpumuk.info/
Дата: 12.08.06 11:33
Оценка:
Здравствуйте, w00zle, Вы писали:

W>Здравствуйте, neiroman, Вы писали:

W>А можно вопрос?
W>Что за тематика проекта?

Похоже на систему управления железной дорогой на Delphi, при этом все данные выгребли в дерево в памяти.

ЗЫ. Я аж чаем поперхнулся, как увидел! Предупреждать же надо
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
Re[3]: Код
От: wildwind Россия  
Дата: 12.08.06 13:57
Оценка:
Здравствуйте, kpumuk, Вы писали:

W>>Что за тематика проекта?
K>Похоже на систему управления железной дорогой на Delphi, при этом все данные выгребли в дерево в памяти.
K>ЗЫ. Я аж чаем поперхнулся, как увидел! Предупреждать же надо

Бедным ребятам в детстве кто-то сказал, что на TList эволюция заканчивается...
Re[4]: Код
От: wildwind Россия  
Дата: 12.08.06 15:59
Оценка:
Здравствуйте, wildwind, Вы писали:

W>Бедным ребятам в детстве кто-то сказал, что на TList эволюция заканчивается...

С другой стороны — а может это шедевр очередного мега-генератора?
Re[3]: Код
От: w00zle  
Дата: 14.08.06 05:45
Оценка: :)
Здравствуйте, neiroman, Вы писали:

N> Это не мой шедевр , поэтому не знаю.

Гы, просто у меня появилось стойкое осчусчение, что от нас текут исходники пятилетней давности
---
Woozle
---
w00zle.
Re[3]: Код
От: w00zle  
Дата: 14.08.06 05:45
Оценка:
Здравствуйте, kpumuk, Вы писали:

K>Похоже на систему управления железной дорогой на Delphi, при этом все данные выгребли в дерево в памяти.

Ну, "система управления" — громко сказано, а на обработку структуры координат пути очень похоже
---
Woozle
---
w00zle.
Re: Код
От: ijumper Россия va-sorokin.blogspot.com
Дата: 14.08.06 06:10
Оценка:
Конечно не такой шедевр как выше но тоже нехило:

$PreparedMailList[$AM[$i]->uid]['full']['info'][sizeof($PreparedMailList[$AM[$i]->uid]['full']['info'])] = $AM[$i];
$PreparedMailList[$AM[$i]->uid]['full']['data'][sizeof($PreparedMailList[$AM[$i]->uid]['full']['data'])] = extyakoon::GetFullMail($AM[$i]);
$PreparedMailList[$AM[$i]->uid]['header']['info'][sizeof($PreparedMailList[$AM[$i]->uid]['header']['info'])] = $AM[$i];
$PreparedMailList[$AM[$i]->uid]['full']['data'] += extyakoon::GetHeaderMail($AM[$i]);
Re[4]: Код
От: Horror_Infinity Россия  
Дата: 14.08.06 06:14
Оценка: :)
Здравствуйте, w00zle, Вы писали:

W>Ну, "система управления" — громко сказано, а на обработку структуры координат пути очень похоже

И получается потом вот так:
... << RSDN@Home 1.2.0 alpha rev. 655>>
Re[5]: Код
От: w00zle  
Дата: 14.08.06 06:29
Оценка: -2
Здравствуйте, Horror_Infinity, Вы писали:

H_I>И получается потом вот так

В России не получается У нас стрелки до сих пор автоматически нигде не переводятся
---
Woozle
---
w00zle.
Re: Код
От: algod Украина  
Дата: 14.08.06 08:14
Оценка: :)
Здравствуйте, neiroman, Вы писали:

N>
N> ...
N>


Сволочь ты . Я печенькой поперхнулся — думал коньки отброшу....
There is no bug
Re[2]: Код
От: Кодт Россия  
Дата: 14.08.06 08:32
Оценка: :)))
Здравствуйте, algod, Вы писали:

A>Сволочь ты . Я печенькой поперхнулся — думал коньки отброшу....

Один чекпоинт пройден. Теперь осталось упасть с Segway...
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
Перекуём баги на фичи!
Re: Код
От: Ubivetz Украина  
Дата: 16.08.06 09:54
Оценка:
Здравствуйте, neiroman, Вы писали:

N>
N>TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[ AfoPch]).PointerNapr.Objects[AfoN]).Poin terPut.Objects[AfoPut]).KolKm:=0;
N>TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm:=0;
N>for i:=0 to TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).PropKiloms.Count-2 do
N>begin
N> if (TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objec ts[AfoPch]).PointerNapr.Objects[AfoN]).P ointerPut.Objects[AfoPut]).PropKiloms.Objects[i]).Prop) or
N>

Видел и похуже. Но на С++
Сотрудницы накатали
Я как увидел, чуть не рехнулся
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
Эх, люблю выпить и переспать с кем нибудь!
Но чаще выходит перепить с кем — нибудь и выспаться...
Re[2]: Код
От: Аноним  
Дата: 16.08.06 12:02
Оценка:
N>
N>   TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm:=
N>   TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm+1;
N>

U>Видел и похуже. Но на С++

На С++ такого быть не может. Там для такого есть оператор ++
Re[3]: Код
От: Neiro  
Дата: 16.08.06 23:20
Оценка:
Здравствуйте, Аноним, Вы писали:

N>>
N>>   TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm:=
N>>   TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch ]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm+1;
N>>

U>>Видел и похуже. Но на С++

А>На С++ такого быть не может. Там для такого есть оператор ++

В delphi inc, так что может
Re[4]: Код
От: Аноним  
Дата: 19.08.06 23:59
Оценка:
А>>На С++ такого быть не может. Там для такого есть оператор ++

N>В delphi inc, так что может

а еще до inc было with
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.