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:

Zitat von stahli (Beitrag 1229645)

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:

Zitat von DeddyH (Beitrag 1229646)

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

Bei lokalen Prozeduren?

[DeddyH]

Lokal und gegenseitiger Aufruf geht schlecht zusammen, oder?

[Uwe Raabe]

Zitat:

Zitat von DeddyH (Beitrag 1229648)

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:

Zitat von Bjoerk (Beitrag 1229652)

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.