Wenn ich den record innerhalb der Klasse deklariere, steht er nur in der Klasse zur Verfügung. Ich brauche ihn aber noch mehrmals in der
Unit ausserhalb der Klasse.
Das ist nur bei Verwendung von strict private richtig. Bei einfachem private ist der Typ TYourType.TYourRecord in der gesamten
Unit verwendbar:
Delphi-Quellcode:
type
TYourType = class
private
type
TYourRecord = record
a: Integer;
end;
end;
TType2 = class
procedure X(A: TYourType.TYourRecord);
end;
implementation
procedure TType2.X(A: TYourType.TYourRecord);
begin
end;
procedure Y(A: TYourType.TYourRecord);
begin
end;
(Delphi 2009)