Ist das sauberer Programmierstil?!

[Vitus]

Hallo zusammen,

ich habe in einem Tutorial etwas in der Art entdeckt:

Delphi-Quellcode:

procedure TTestKlasse.nurEinTest();
  function test(): integer;
  begin
    result := 5;
  end;
begin
  test;
end;

Dieses Einbetten einer Routine in eine andere sieht für mich ziemlich krank aus...
Ist das normal?!? Nutzt das jemand? Macht es Sinn? (damit meine ich nicht diese unsinnige Prozedur )

Würde mich mal interessieren...