Einzelnen Beitrag anzeigen

DGS

Registriert seit: 10. Jul 2004
65 Beiträge
 
Delphi 6 Enterprise
 
#4

Re: Problem Mit Interface-Objekt

  Alt 26. Apr 2007, 17:22
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.
Vorschläge für sinnvolle Signatur bitter per PN
  Mit Zitat antworten Zitat