---

Hej.

Jeg har et mindre problem med mit delphi program.

Jeg har nogle klasser med tilhørende interfaces.
Nu vil jeg gerne tvinge brugeren af klasserne til at bruge interfacet, dvs.
gøre constructoren protected og lave et factory til at skabe dem.

Problemet er bare, at der ikke er noget der hedder internal eller friend
classes i delphi.

Så spørgsmålet er... hvad gør man så?

mvh.
Klaus.

---

Klaus Petersen wrote:
> Jeg har nogle klasser med tilhørende interfaces.
> Nu vil jeg gerne tvinge brugeren af klasserne til at bruge interfacet, dvs.
> gøre constructoren protected og lave et factory til at skabe dem.
>
> Problemet er bare, at der ikke er noget der hedder internal eller friend
> classes i delphi.
>
> Så spørgsmålet er... hvad gør man så?

Faktisk ganske simpelt: Alting erklæret i samme unit har fuld adgang til
hinandens private data. F.eks. er følgende lovligt:

unit abc;

interface

type
TFoo = class
private
b: integer;
end;

TBar = class
public
function GetFoo: TFoo;
end;

implementation

function TBar.GetFoo: TFoo;
begin
Result := TFoo.Create;
Result.b := 123;
end;

end.

/Niels