Multipage-Support: Ich komme nicht weiter

[hansklok]

... aber an sich ist es genau so, wie du es meintest, oder?

Und wie funktioniert das mit den properties?

[Die Muhkuh]

Hi,

noch nicht. Die greifst falsch auf die Seiten zu (per TSeite(Index) geht das nicht).

Zu den Properties: http://www.dsdt.info/grundlagen/sprache/oo.php Bei "Eigenschaften oder Properties" geht es los.

Die Property für die Dokumentklasse wäre, wie schon geschrieben:

property Items[Index: Integer]: TSeite read GetSeite; Und anstatt dem Aufruf "TSeite(Index)", geht es dann über Items[Index].

[hansklok]

.. also TSeite(Items[Index]) , weil sonst kann ich ja nicht auf die Seiteneigenschaften zugreifen, oder?

[Die Muhkuh]

Hi,

Items gibt eine TSeite zurück, da brauchst Du keinen Typecast mehr

[hansklok]

He sorry, aber ich kapiere es grade überhaupt nicht mehr:

Zitat:

Items gibt eine TSeite zurück, da brauchst Du keinen Typecast mehr

[Die Muhkuh]

Hi,

also, nochmal langsam

Wie auf DSDT.info steht, kann man mit einer property Lese- und Schreibzugriff auf eine Variable (ich sage mal) "überwachen". Mit Read überwacht man Lesezugriff und mit write Schreibzugriff. Bei unserer Items-Property gibt es aber nur ein Read, will heißen, man kann nur Lesen und nicht Schreiben:

property Items[Index: Integer]: TSeite read GetSeite; Ruft man nun im Source Items[Index] auf, wird die Function GetSeite aufgerufen.

Delphi-Quellcode:

function TDokument.GetSeite(Index: Integer): TSeite;
begin
  Result := TSeite(inherited Items[Index]);
end;

Wie Du hier siehst, wird schon eine Seite zurückgegeben (Funktionen kennst Du ja bestimmt, nur statt hier ein Boolean, Integer oder String zurückgegeben wird, wird hier ein Object, eine TSeite, zurückgegeben).

Deswegen kannst Du auch direkt auf Items[Index].Width zugreifen und brauchst nicht TSeite(Items[Index].Width) schreiben.

Unter dem Stichwort typisierte Listen sollte noch mehr zu finden sein.

[hansklok]

Danke, da hab ich wieder etwas dazugelernt,

damit ergeben sich für mich ganz neue Programmiereigenschaften!

[hansklok]

Hallo,

also mittlerweile habe ich das Grundkonzept umgesetzt. Im Anhang befindet sich ein Test-Projekt, in das man zunächst, eben nur zu Testzwecken, beliebig viele Seiten einfügen kann (jeder Seite kann eine individuelle Hintergrundfarbe zugewiesen werden). Nun habe ich für TSeite und TDokument Save und Load Prozeduren geschrieben. Leider scheiter ich an der Load Prozedure für TDokument. Theoretisch müsste das mit einer repeat until Schleife funktionieren, hab nur keine Ahnung wie. Würde mich freuen, wenn sich jemand mal das Test-Projekt ansieht und mir mit der Procedure TDokument.Load(Datei: TFileStream) helfen könnte!

Vielen Dank

hansklok

[hansklok]

... kann mir niemand helfen?