[Помидоркин]

Вопрос, у меня, довольно общий.
В функции (методе класса) несколько раз повторяется некое действие, логично вынести его в отдельную функцию:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function GetTag(Str: String; Tag: String):String; var   p1, p2: Word; begin   . . . end;   function TFB2Folder.GetAutorTitle(FileName: String):String; var F: File of Byte;      x: Byte;      u, titleInfo: UTF8String; begin    . . .      Result:= GetTag([параметр]; [параметр]);     . . .   Result:= Result+GetTag([параметр]; [параметр]); end;

но дело в том, что это некое действие повторяется только в этой функции (методе класса), в связи с чем возник вопрос: может ли метод быть помещен внутри другого метода. Дело в том, что несколько раз на форумах и в статьях по delphi наталкивался на странную конструкцию, что-то вроде (не ручаюсь за точное воспроизведение):

Код:

1 2 3 4 5 6 7 8 9 10

procedure SomeProc ; var . . .  . . . begin // блок расположенный . . . // внутри end; // основной процедуры . . . begin // реализация . . . // процедуры SomeProc end;

Вообще, объясните (если кто понял, что я имею ввиду ), что это за конструкция.

[M.A.D.M.A.N.]

Есть понятие inline метода.

[lmikle]

Да не, тут проще.
Можно описать функуцию/процедуру внутри другой функции/процедуры. Она будет "видна" только внутри этой функции и может видеть параметры функции. Например:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

function IncParam(a : integer) : integer;   function IncPositive : Integer;   begin     Result := a + 1;   end;   function IncNegative : Integer;   begin     Result := a - 1;   end; begin   if a >= 0 then Result := IncPositive Else Result := IncNegative; end;