Problem TList mit Ober/Unterklassen

[axelf98]

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;

[SirThornberry]

wenn du init aufrufst hast du zwar einen constructor, trotzdem solltest du in dem INIT das "Inherited Create" aufrufen. Zu dem finde ich es schrecklich das du nicht CREATE und DESTROY als Constructor und Destructor nimmst sondern irgendwelche anderen Namen, da braucht man viel länger um sich reinzufinden. Außerdem solltest du mal die einrückungen beachten. Außerdem solltest du auch mal Private, Public etc. nutzen!!!!!!!!!!! Außerdem gruselig ist dsa du deine Variable "TNeueFolie" nennst. Das T wird für Typdeclarationen verwendet und sollte nicht am Anfang von Namen stehen! Am besten du schaust dir mal die Richtlinien für Sourceformatierung etc. an.

Dein source mal bissl übersichtlicher (mit den sch*** Bezeichnungen)

Delphi-Quellcode:

type
  TFolie = class 
  private
    Art: SmallInt; 
    Titel: String;  
    ZeichenF: TImage; 
  public
    constructor INIT;  virtual; abstract; 
    procedure ZeichneDich; virtual; abstract; 
    destructor GIBFREI;  virtual; abstract; 
  end; 

  TSchwarzFolie = class(TFolie) 
  public
    constructor INIT; override; 
    procedure ZeichneDich; override; 
    destructor GIBFREI; override; 
  end; 

constructor TSchwarzFolie.INIT; 
begin 
// hier sollte doch wenigstens "inherited Create;" hinn
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 
  inherited Destroy;
end; 

{********************************************} 

procedure TPresentation.Foliedazu(ArtdF: Integer; Beschr:String); 
var TNeueFolie: TFolie; //Der Name "NeueFolie" wäre besser geeignet!
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;

[axelf98]

Zitat von SirThornberry:

wenn du init aufrufst hast du zwar einen constructor, trotzdem solltest du in dem INIT das "Inherited Create" aufrufen. Zu dem finde ich es schrecklich das du nicht CREATE und DESTROY als Constructor und Destructor nimmst sondern irgendwelche anderen Namen, da braucht man viel länger um sich reinzufinden. Außerdem solltest du mal die einrückungen beachten

Zur Einrückung... Ich habe den Code eingerückt, nur mein Opera macht da irgendwie Mist draus..
Das mit im inherted create probier ich mal! --- Nein, der Fehler ist immer noch da!

[SirThornberry]

der Fehler ist ganz einfach. Du hast nirgends das "ZeichenF" initialisiert! Das fehlt einfach das
  ZeichenF := TImage.Create(nil); Zudem sollten Private-Variablen mit einem "F" beginnen und nicht damit aufhören

[axelf98]

Arg... der Code war schon richtig... Nur ich hatte an einer Stelle eine 1 statt einer 0 für die Schwarze Folie stehen
Hat sich erledigt. Aber trotzdem danke für die konstruktive Kritik an meinem Programmierstil *g*

[SirThornberry]

hast du mal debugt und geprüft ob Folie = nil ist?