| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Можно ли избавиться от goto в этом коде ? [D7]

Страницы:   < 1 2 >

Гоу ту ©   (2005-03-14 01:15:00) 

Зачем ? Просто из спортивного интереса.


 for i := 0 to High(BoxA) do
   if BoxA[i].obj = nil then begin
     Result := i;
     { some code here }
     goto End1;
   end;
 Result := Length(BoxA);
 SetLength(BoxA, Result +1);
 End1:

---

default   (2005-03-14 01:29:00) [21]

goto End1; только выкинь...
Гоу ту   (14.03.05 01:27) [2]
задавой вопрос не только о факте возможности, но и о реализациии:)

---

default   (2005-03-14 01:28:00) [22]

например, так

Result := 0;
for i := 0 to High(BoxA) do
  if BoxA[i].obj = nil then begin
    Result := i;
    { some code here }
    goto End1;
  end;
if BoxA[Result].obj <> nil then begin
  Result := Length(BoxA);
  SetLength(BoxA, Result +1);
end;


---

Гоу ту   (2005-03-14 01:27:00) [23]

> default ©   (14.03.05 01:22) [1]
> можно, конечно

Только ты не знаешь как ?

---

default   (2005-03-14 01:22:00) [24]

можно, конечно

---

Страницы:   < 1 2 >

Наверх