Prototypen wie in C

[70UR157]

man betrache folgenden code:

Delphi-Quellcode:

procedure a;
begin
  b;
end;

procedure b;
begin
  c;
end;

procedure c;
begin
  a;
end;

begin
  a;
end.

...okok es würde nix gemacht werden (bis auf einen stack overflow :wink:), aber darum geht es nicht. das problem ist dass sich nur prozeduren(/funktionen) aufrufen lassen die vor ihrem aufruf bereits im quelltext geschrieben sind. in dem obigen fall ist es jedoch unmöglich eine solche reihenfolge zu finden! in c würde man einfach prototypen schreiben, aber was macht man da in object-pascal :?:

thx

[Chewie]

Jede Unit besteht u.a. aus einen interface und einem implementation-Teil. Im Interface-Teil können Programmroutinen vor der Definition deklariert werden.
Bei dir sähe das dann so aus:

Delphi-Quellcode:

unit Unit1;

interface

procedure a;
procedure b;
procedure c;

implementation

//...deine Prozeduren und die Hauptprozedur


end.

[jbg]

Eine andere Möglichkeit:

Delphi-Quellcode:

procedure a; forward;
procedure b; forward;
procedure c; forward;

procedure a;
begin
  b;
end;
...

[svehei]

und wie wuerde das beispielsweise bei klassen aussehen?

wenn ich also eine unit habe mit x klassen, alle sind in irgendweiser von einander abhaengig (z.B. eigene klassen mit eigenen klassenlisten). wenn ich jetzt im nachhinein eine neue klassen einbaue, muss ich immer verdammt aufpassen von ich die klassen deklariere.

gibt es vielleicht ne moeglichkeit, dass ich alle Klassen im vorfeld deklariere (prototyp)

[sakura]

Ebenfalls entsprechend einfach.

Delphi-Quellcode:

type
  TClass2 = class;
  TClass3 = class;

  TClass1 = class(TObject)
    FClass2: TClass2;
  end;

  TClass2 = class(TComponent)
    FClass3: TClass3;
  end;

  TClass3 = class(TControl)
    FClass1: TClass1;
  end;