Zitat von
Relicted:
jemand davon einen lösungsansatz?
Klar, dieses hier:
Delphi-Quellcode:
type
TMember = class(TObject)
private
FZahl: Integer;
public
procedure Assign(AOriginal: TMember );
end;
...
procedure TMember.Assign(AOriginal: TMember );
begin
FZahl := AOriginal.FZahl;
end;
Und was war nun das Problem? Ist doch ganz einfach.
Hintergrund: Alle Klassen in einer
Unit sind sich selber friend-Klassen und können daher auf deren (auch versteckten) Elemente und Methoden zurück greifen. Die Klasse TMember ist somit friend von sich selber und kann dies auch.
Sieht vllt. komisch aus, ist aber so. Probier es aus...