Sichtbarkeit Prozduren in Prozeduren

[nakaramia]

Hallo,

ich habe ein Programm in Delphi 2007, in dem in einer Prozedur ein Dutzend anderer enthalten sind. Eine davon würde ich gern splitten, um keine Code-Kopien zu erzeugen. Dazu müsste die neue Prozedur aber von den inneren Prozeduren gesehen/aufgerufen werden können. Gibt es so eine Möglichkeit? Ich habe das mal als Pseudo-Code zusammengeschrieben.

Delphi-Quellcode:

procedure TMyParent.IchBinGanzOben;
procedure Kind1;
begin
  //hier soll KindN aufgerufen werden können
end;

procedure KindN;
begin
  //ausgelagerter Code
end;

begin
  //hier wird Kind1 aufgerufen
end;

Notfalls könnte ich KindN in Kind1 reinschreiben.

[stahli]

... einfach KindN vor Kind1 verschieben

Wenn Du gegenseitige Aufrufe brauchst müsstest Du die Prozeduren als (private oder protected) Methoden deklarieren.

[DeddyH]

Zitat von stahli:

Wenn Du gegenseitige Aufrufe brauchst müsstest Du die Prozeduren als (private oder protected) Methoden deklarieren.

Oder die Prozedurköpfe im interface-Abschnitt veröffentlichen.

[Uwe Raabe]

Zitat von DeddyH:

Oder die Prozedurköpfe im interface-Abschnitt veröffentlichen.

Bei lokalen Prozeduren?

[DeddyH]

Lokal und gegenseitiger Aufruf geht schlecht zusammen, oder?

[Uwe Raabe]

Zitat von DeddyH:

Lokal und gegenseitiger Aufruf geht schlecht zusammen, oder?

Wieso nicht?

Delphi-Quellcode:

procedure IchBinGanzOben;

  procedure KindN; forward;

  procedure Kind1;
  begin
    KindN;
  end;

  procedure KindN;
  begin
    Kind1;
  end;

begin
  //hier wird Kind1 aufgerufen
end;

[DeddyH]

Hast ja gewonnen.

[stahli]

Ahh! Wusste ich gar nicht...
Um so besser.

[Bjoerk]

Oder Kapselung einzuführen.

Delphi-Quellcode:

TSomeKinds = record
private
  FSomeInput: TSomeInput;
  FSomeOutput: TSomeOutput;
  procedure DoSomething;
  procedure DoSomethingElse;
public
  procedure Kind1;
  procedure Kind2;
  procedure KindN;
  property SomeInput: TSomeInput read FSomeInput write FSomeInput;
  property SomeOutput: TSomeOutput read SomeOutput write FSomeOutput;
end;

procedure TMyParent.IchBinGanzOben;
begin
  FSomeKinds.Kind1;
end;

[Zacherl]

Zitat von Bjoerk:

Oder Kapselung einzuführen.

Ist in diesem Kontext aber nicht sehr sinnvoll. Allerhöchstens als private dann, aber lokal und ggfls. mit forward ist dann eventuell doch noch schöner.