Erzeugt wird die Klasse im Hauptprogramm:
Delphi-Quellcode:
...
var
Form1: TForm1;
Uhrz: TUhren;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Uhrz.Create; {Beide ausprobiert... keiner geht}
Uhrz.Erzeuge(Image1.Canvas,50,50,20,clWhite,clBlack,clRed,clLime);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Uhrz.Vernichte(Image1.Canvas);
end;
Allerdings ist es völlig egal ob ich die Prozedur Erzeuge verwende oder einfach nur Create.
Es kommt jedesmal der Fehler mit Read of Adress ...