[*gelöst*] Erstellung von Kombonenten

[Maik81SE]

Moin @ll,

Ich will/möchte mir einige Neue Komboneten schreiben, um die ein oder anderen USB-Geräte, welche ich baue auch sehe und voll nutzen kann, wenn ich meine Programme schreibe.

Nun will ich dies alles auch mit der

Code: Alles auswählen

procedure Register;

registrieren lassen und erhalte die Meldung

Code: Alles auswählen

Error: Incompatible type for arg no. 2: Got "Array Of Const/Constant Open Array of Class Of TUSBSer", expected "Open Array Of TComponentClass"

Da ich dies über Lazarus automatsch Pflegen lasse, lauten die verwendeten Proceduren wie folgt.

Code: Alles auswählen

{ This file was automatically created by Lazarus. Do not edit!
  This source is only used to compile and install the package.
 }
 
unit tty;
 
interface
 
uses
  USB_Ser, LazarusPackageIntf;
 
implementation
 
procedure Register;
begin
  RegisterUnit('USBSer', @USBSer.Register);
end;
 
initialization
  RegisterPackage('tty', @Register);
end.

Code: Alles auswählen

procedure Register;
begin
  RegisterComponents('SH-DL',[TUSBSer]);
end;

Ob ich da gerade einen Fehler drinnen versteckt habe, keine Ahnung.
Hoffe aber, das jemand von euch Wenn den Fehler findet

[af0815]

Wer ist der Vorfahre von TUSBSer ? Schaut so aus, das dort der Vorfahr nicht korrekt abgeleitet wurde.

[Maik81SE]

Die habe ich so wie auch immer vor Jahren unter Delphi geschrieben habe.

In diesem Fall

Code: Alles auswählen

TUSBSer = class

[Michl]

Die habe ich so wie auch immer vor Jahren unter Delphi geschrieben habe.

In diesem Fall

Code: Alles auswählen

TUSBSer = class

probier es mal so:

Code: Alles auswählen

type
  TUSBSer = class(TComponent)

[Maik81SE]

Lagen im Grunde mehrere Sachen drinnen.

A) Hatte ich

Code: Alles auswählen

TUSBSer = class(TObjekt]

und nicht

Code: Alles auswählen

TSERUsb = class

und dann auch dementsprechend nicht den

Code: Alles auswählen

Constructor

Richtug definiert.
Alles nun wie folgt geändert.

Code: Alles auswählen

TUSBSer = class(TComponent)
 
constructor Create(AOwner: TComponent);