Problem Mit Interface-Objekt

[DGS]

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.