Zeiger, anonyme Objekte und Listen

[xZise]

Hallo DP,
ich habe ein Problem mit einem Stundenplanprogramm von mir.
Und zwar habe ich folgende Klassenstruktur:
Hauptform => TTimeTable (verwaltet die Anzeige des Plans) => TWeek (verwaltet die Speicherung der Daten der ganzen Woche) => TDay (verwaltet die Speicherung der Daten für einen Tag) => TSubject (Speichert die Daten für die Stunde).

TWeek und TDay haben selber eine Liste innerhalb.
Und dort beginnt das Problem:
Wenn ich nun der Woche einen Tag hinzufüge macht man dass über die Prozedur "Add":

Delphi-Quellcode:

procedure TWeek.Add(const ADay : TDay);
begin          
  Add(@ADay);
end;

procedure TWeek.Add(const ADay: PDay);
begin
  FList.Add(ADay);
end;

Der Aufruf sieht dann so aus:
FWeek.Add(TDay.Create(timetable.ReadString(IntToStr(i), 'Name', ''), subjects)); Kurze Erkärung:
Ich füge "FWeek" ein "TDay" Objekt hinzu, welches innerhalb der Prozedur erstellt wird.
Der Konstructor von TDay möchte zum einen den Namen des Tages (z.B. "Montag") und die einzelnen Fächer (Variable subjects ist ein array of string).

Der Konstruktor von TDay:

Delphi-Quellcode:

constructor TDay.Create(const AName : string; const ASubjects : TSubjects);
var
  i: Integer;
  subject : TSubject;
begin
  inherited Create;
  FList := TList.Create;
  FName := AName;
  for i := 0 to High(ASubjects) do
  begin
    subject := TSubject.Create(ASubjects[i]);
    FList.Add(@subject);
  end;
end;

Das Problem ist jetzt nur, wenn ich jetzt in der Schleife die Tage hinzufüge, verhaspelt er sich mit dem Pointer.
Er fügt das erste mal z.B. "12FCE0" ein. Bei der zweiten Schleife steht in "PDay" wieder "12FCE0" und so weiter.

Das Problem ist nun, dass er es nicht schafft das zu speichern.
Sobald ich von der Woche aus drauf zugreife, kriege ich eine AV:

Delphi-Quellcode:

function TTimeTable.GetItemAt(APosition: TPoint): TSubject;
begin
  Result := FWeek.Day[APosition.X div FStrWidth].Subject[APosition.Y div FStrHeight - 1];
end;

Wobei ich noch nichtmal immer eine AV bekomme:

Delphi-Quellcode:

FWeek.Add(TDay.Create(timetable.ReadString(IntToStr(i), 'Name', ''), subjects));
<IrgendEinString> := FWeek.Day[i].Name;

Aber selbst beim zweiteren ist der String nicht belegt.

MfG
xZise

PS: Die Pfeile oben sind nicht Vererbungen sondern Zugriffe!

[3_of_8]

Delphi-Quellcode:

procedure TWeek.Add(const ADay : TDay);
begin         
  Add(@ADay);
end;

Wenn TDay wirklich eine Klasse ist, dann ist das eine verdammt schlechte Idee. Ein Pointer auf einen Instanzenpointer... da kommt nix gutes raus. Schreib einfach Add(Pointer(ADay));

[Dax]

Du musst nicht mal casten, das macht Delphi in dem Fall automatisch. Und für Klassen gibt es die TObjectList..

[himitsu]

PDay ist ein Zeiger auf die Variable wo der "Zeiger" zum Objekt drinsteht und nicht auf das Objekt selber

und nach der Funktion (oder dem wo diese Variable definiert ist), ist dieser Zeiger ungültig.


Speicher direkt TDay, also den Zeiger (Objektrefferenz genannt) auf das Objekt.

[xZise]

Okay, dass habe ich getan, und jetzt bekomme ich die AV jetzt schon vorher!

Zitat von himitsu:

[...]und nach der Funktion (oder dem wo diese Variable definiert ist), ist dieser Zeiger ungültig.


Speicher direkt TDay, also den Zeiger (Objektrefferenz genannt) auf das Objekt.

Mit "Pointer()"?

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;

Zitat von Dax:

Du musst nicht mal casten, das macht Delphi in dem Fall automatisch. Und für Klassen gibt es die TObjectList..

1. Wo caste ich?
2. Stimmt... Aber was bringt mir die Liste?

MfG
xZise

[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.

[xZise]

Also mit der TObjectList funktioniert das Wunderbar

MfG
xZise

[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