Форум: "Прочее";
Текущий архив: 2012.06.03;
Скачать: [xml.tar.bz2];
ВнизЦикл 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 вся ветка
Форум: "Прочее";
Текущий архив: 2012.06.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.003 c