Zitat von
xZise:
Dann funktioniert folgendes nicht mehr:
Delphi-Quellcode:
procedure TWeek.Add(const ADay : TDay);
begin
Add(Pointer(ADay));
end;
procedure TWeek.Add(const ADay: PDay);
begin
FList.Add(ADay);
TDay(FLIst[0]^).FName := 'Aasj';
end;
Da ist auch ein ^ zu viel drin.
Zitat von
xZise:
1. Wo caste ich?
2. Stimmt... Aber was bringt mir die Liste?
Pointer(...) ist ein Cast
Und die Liste bringt dir insofern was, als das die Liste alle Elemente bei ihrer Freigabe auch freigeben kann.