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

Вниз

Почему кладовка заперта?   Найти похожие ветки 

← →
Fay ©   (2005-02-04 20:38) [40]

Народ! Покажите, pls, код IncDay!!!
Очень хочется посмотреть!
Или пришлте fedorz[друг_человека]front.ru

---

← →
kaZaNoVa ©   (2005-02-04 20:51) [41]

Fay ©   (04.02.05 20:38) [40]

>Народ! Покажите, pls, код IncDay!!!
> Очень хочется посмотреть!

моя версия:
Function IncDay:Integer;
Begin
Try
  IncDay:=1;
Except
  IncDay:=0; End;
End;


---

← →
Kerk ©   (2005-02-04 21:00) [42]

Моя версия:

Function IncDay:Integer;
Begin
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.Objects[AfoPch]).PointerNapr.Objects[AfoN]).P  ointerPut.Objects[AfoPut]).PropKiloms.Objects[i]).Prop) or
    (TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[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.Objects[AfoPch]).PointerNapr.Objects[AfoN]).Po  interPut.Objects[AfoPut]).PropKiloms.Objects[i]).Nom:=j;
end;
TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[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.Objects[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;
Exit;
Result := 1;
end;

---

← →
kaZaNoVa ©   (2005-02-04 21:03) [43]

Kerk ©   (04.02.05 21:00) [42]
COOL,а где оьбявление типов? ))

---

← →
Kerk ©   (2005-02-04 21:04) [44]

kaZaNoVa ©   (04.02.05 21:03) [43]

ты мазохист??????? :))))))

---

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

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

Наверх

Память: 0.52 MB
Время: 0.034 c