Форум: "Начинающим";
Текущий архив: 2015.03.29;
Скачать: [xml.tar.bz2];

Вниз

Возврат результата из вложенной функции   Найти похожие ветки 

← →
XCoder   (2014-02-06 15:26) [0]

Есть функция DoSomething, которая включает в себя 2 функции - InternalDoSomethingA и InternalDoSomethingAA. Как КОРРЕКТНО возвратить результат DoSomething из вложенной функции InternalDoSomethingAA:


function DoSomething: Boolean;

 procedure InternalDoSomethingA;

   procedure InternalDoSomethingAA;
   begin
     Result := True;
   end;

 begin

 end;

begin

end;


---

← →
Rouse_ ©   (2014-02-06 15:28) [1]

function DoSomething: Boolean;

procedure InternalDoSomethingA;

  procedure InternalDoSomethingAA;
  begin
    DoSomething := False;
  end;

begin
  InternalDoSomethingAA
end;

begin
 InternalDoSomethingA;
end;

---

← →
XCoder   (2014-02-06 15:29) [2]

или лучше так:


function DoSomething: Boolean;
var
 Res: Boolean;

 procedure InternalDoSomethingA;

   procedure InternalDoSomethingAA;
   begin
     Res := True;
   end;

 begin

 end;

begin
 Result := Res;
end;


---

← →
изыди   (2014-02-06 15:29) [3]

function DoSomething: Boolean;

function InternalDoSomethingA: Boolean;

  function InternalDoSomethingAA: Boolean;
  begin
    Result := True;
  end;

begin
 Result := InternalDoSomethingAA;
end;

begin
 Result := InternalDoSomethingA;
end;

---

← →
Rouse_ ©   (2014-02-06 15:30) [4]

Ну и вариант 2:

function DoSomething: Boolean;

 function InternalDoSomethingA: Boolean;

   function InternalDoSomethingAA: Boolean;
   begin
     Result := True;
   end;

 begin
   Result := InternalDoSomethingAA
 end;

begin
 Result := InternalDoSomethingA;
end;

---

← →
XCoder   (2014-02-06 15:30) [5]

> Rouse_ ©   (06.02.14 15:28) [1]


Спасиб

---

← →
DVM ©   (2014-02-06 15:31) [6]

Это что ли надо?

function DoSomething: Boolean;

procedure InternalDoSomethingA;

  procedure InternalDoSomethingAA;
  begin
    DoSomething:= True;
  end;

begin

end;

begin

end;

---

← →
XCoder   (2014-02-06 15:47) [7]

> DVM ©   (06.02.14 15:31) [6]
> Это что ли надо?


Да, раньше не приходилось так возвращать результат, вот и усомнился.

---

← →
icWasya ©   (2014-02-06 17:28) [8]

А вот ещё
http://delphimaster.net/view/15-1390751141/

---

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

Форум: "Начинающим";
Текущий архив: 2015.03.29;
Скачать: [xml.tar.bz2];

Наверх

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