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!