Zeiger, anonyme Objekte und Listen

[Dax]

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.