operator is und as

[Rumpi]

Hi Bernd,

Zitat:

Delphi-Quellcode:

type 
  IBlaBla = interface 
    ['{D277B854-3DFF-4838-B8B9-A87EF5C55B1F}'] 
    procedure SetBla(Value: Integer); 
    function GetBla : Integer; 
    property Blabla : Integer read GetBla write SetBla; 
  end; 

  TFormA = class(Tform,IblaBla) 
  public 
    function GetBla: Integer; 
    procedure SetBla(Value: Integer); 
  end; 

  TFormB = class(TForm,IblaBla) 
  public 
    function GetBla: Integer; 
    procedure SetBla(Value: Integer); 
  end;

muss da nicht in TFormA und B SetBla vor GetBla kommen so wie in IBlaBla?