Hallo!
Ich schreibe gerade an einem Programm, dass eine Art Mini-Powerpoit werden soll. Ich habe dazu eine TList, die ich mit Folien fülle. Diese Folien sind unterschiedlich, weshalb ich eine abstrakte Oberklasse TFolie eingeführt habe und als Unterklasse zB. TSchwarzFolie. Die Liste enthält dann eine Instanz von TSchwarzFolie. Das klappt auch ganz gut, nur wenn ich eine Prozedur der Tschwarzfolie aufrufe gib es eine
AV... Wenn ich auf Eigenschaften der Folie zugreife gibt es keine Fehler!
Mein Klassensystem..
Delphi-Quellcode:
type TFolie =
class
Art: SmallInt;
Titel:
String;
ZeichenF: TImage;
constructor INIT;
virtual;
abstract;
procedure ZeichneDich;
virtual;
abstract;
destructor GIBFREI;
virtual;
abstract;
end;
type TSchwarzFolie =
class(TFolie)
constructor INIT;
override;
procedure ZeichneDich;
override;
destructor GIBFREI;
override;
end;
constructor TSchwarzFolie.INIT;
begin
//
end;
procedure TSchwarzFolie.ZeichneDich;
var Recta: TRect;
begin
ZeichenF.Canvas.brush.Color := clblack;
Recta.Left := 0;
Recta.top := 0;
Recta.Bottom := Zeichenf.Height;
Recta.Right := Zeichenf.Width;
ZeichenF.Canvas.FillRect(Recta);
end;
destructor TSchwarzFolie.GIBFREI;
begin
//
end;
{********************************************}
procedure TPresentation.Foliedazu(ArtdF: Integer; Beschr:
String);
var TNeueFolie: TFolie;
begin
case ArtdF
of
1:
begin
TNeueFolie := TSchwarzFolie.INIT;
end;
{...}
end;
TNeueFolie.Art := ArtdF;
TNeueFolie.Titel := Beschr;
TNeueFolie.ZeichenF := mZF;
Liste.Add(TNeueFolie);
// <-Hier gehts in die Liste
AnzahlFolien := Liste.Count;
end;
procedure TPresentation.ZeichneFolie;
var Folie: TFolie;
begin
if Index <> - 1
then
begin
Folie := Liste.Items[
Index];
Folie.ZeichneDich;
// <- Hier ist der AV-Fehler...
end;
end;