ich bin gerade am portieren eines JAVA codes nach Delphi , und habe eine Verständnisproblem für folgende Klassenbeziehung im Codebeispiel.
Die Procedure B kann ich in Delphi nicht aufsetzen/compilieren, weil ja TClassB erst später definiert wird.
Geht so was in JAVA und in Delphi nicht ?
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Types,
classes;
Type TClassA =
class
procedure p1 ;
procedure p2 ;
// procedure B (anyClass : TClassB);
end;
Type TClassB =
class
FclassA : TClassA;
procedure B_p1 ;
procedure B_p2 ;
end;
{ TClassA }
procedure TClassA.p1;
begin
end;
procedure TClassA.p2;
begin
end;
{ TClassB }
procedure TClassB.B_p1;
begin
end;
procedure TClassB.B_p2;
begin
end;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
except
on E:
Exception do
Writeln(E.ClassName, '
: ', E.
Message);
end;
end.