Zeiger, anonyme Objekte und Listen

[himitsu]

Zitat:

Code:

procedure TWeek.Add(const ADay : TDay);
begin          
  Add(Pointer(ADay));  [color=#ff0000]// TDay > Pointer[/color]
end;

procedure TWeek.Add(const ADay: PDay);
begin
  FList.Add(ADay);
  TDay(FLIst[0]^).FName := 'Aasj';  [color=#ff0000]// Pointer^ > TDay[/color]
end;

laß mal das ^ weg