Скачать: CL | DM;

Цикл AS3 -> Delphi цикл.   Найти похожие ветки 

← →
Псарь   (2012-01-25 22:19) [0]

Есть такой код на Action Script 3:

for (var bb: b2Body = _World.GetBodyList(); bb; bb = bb.GetNext())
{
//  
}



Как переделать цикл для Delphi?

var
  bb: Tb2Body;
begin
 // ?

 // Сигнатуры: bb.GetNext: Tb2Body;
 //                 _World.GetBodyList: Tb2Body;
end;



---

← →
tesseract ©   (2012-01-25 22:22) [1]

ForEach?

---

← →
Псарь   (2012-01-25 22:23) [2]

Так?


var
 bb: Tb2Body;
begin
  repeat
     If (bb = nil)
     then bb:= _World.GetBodyList()
     else  bb:= bb.GetNext;

     //
  until (bb = nil);
end;



---

← →
Псарь   (2012-01-25 22:24) [3]

> tesseract ©   (25.01.12 22:22) [1]
>
> ForEach?


D7

---

← →
Ega23 ©   (2012-01-25 22:24) [4]

while bb <> nil do
 try

 finally
   bb := bb.GetNext;
 end;

?

---

← →
jack128_   (2012-01-25 22:41) [5]

> Ega23 ©   (25.01.12 22:24) [4]

finally - не нужен.

---

← →
Ega23 ©   (2012-01-25 23:03) [6]

> finally - не нужен.


Старая привычка.

---

← →
Псарь   (2012-01-26 19:24) [7]

Ну как правильно то?


while bb <> nil do
begin
  bb := bb.GetNext;
end;



---

← →
Inovet ©   (2012-01-26 19:29) [8]

> [7] Псарь   (26.01.12 19:24)
> while bb <> nil do
> begin
>  bb := bb.GetNext;
> end;

А гле перед этим
b2Body := _World.GetBodyList();

---

← →
Псарь   (2012-01-26 19:36) [9]

> Inovet ©   (26.01.12 19:29) [8]


А ну спасибо.
Окончательный вариант.

bb:= _World.GetBodyList();
while bb <> nil do
begin
 bb := bb.GetNext;

 // Тут, Матрена, делай что хошь.
end;


---

← →
Inovet ©   (2012-01-26 19:48) [10]

> [9] Псарь   (26.01.12 19:36)
> begin
> bb := bb.GetNext;
>
> // Тут, Матрена, делай что хошь.
> end;


begin
// Тут, Матрена, делай что хошь.

bb := bb.GetNext;
end;


---

← →
Псарь   (2012-01-26 23:58) [11]

> Inovet ©   (26.01.12 19:48) [10]


Ок. :)

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.005 c