OK, dann mal her mit dem code ^^"
Das ist meine
Unit, die die Objekte sammelt:
Delphi-Quellcode:
unit SteuerEinheit;
interface
uses
Interface_Haupt, Beispiel1;
type
tSteuerEinheit =
class
private
fAppletArray :
array[0..5]
of iHaupt;
public
constructor Create;
procedure MainLoop;
end;
var
hlp : iHaupt;
implementation
uses
Unit1;
constructor tSteuerEinheit.Create;
begin
inherited Create;
// fAppletArray[0] := tBeispiel1.Create;
hlp := tBeispiel1.Create;
end;
procedure tSteuerEinheit.MainLoop;
begin
hlp.MainLoop;
end;
end.
> funktioniert erst dann, wenn ich hlp auf tBeispiel1 ändere.
Hier das Interface:
Delphi-Quellcode:
unit Interface_Haupt;
interface
type
iHaupt =
interface
procedure MainLoop;
end;
implementation
end.
Es ist derzeit noch recht leer. Sollte aber später mit Funktionen aufgefüllt werden. Ich wollte bloss vorher testen, ob der Rohbau funktioniert, was er nicht tut.
und hier meine Beispiel
Unit
Delphi-Quellcode:
unit Beispiel1;
interface
uses
Interface_Haupt;
type
tBeispiel1 =
class(tInterfacedObject, iHaupt)
private
public
constructor Create;
procedure MainLoop;
end;
implementation
constructor tBeispiel1.Create;
begin
inherited Create;
end;
procedure tBeispiel1.MainLoop;
begin
// TODO: MainLoop
end;
Wegen der Speicheradresse: war nicht 0.