Probleme mit neuer Komponente

[barnti]

Hallo,
ich möchte die folgende Komponente erstellen:

Delphi-Quellcode:

unit akQuery;

interface

uses
  SysUtils, Classes, DB, mySQLDbTables;

type
  akQuery = class(TmySQLQuery)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; Database: TmySQLDatabase);
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [akQuery]);
end;

{ akQuery }

constructor akQuery.Create(AOwner: TComponent; Database: TmySQLDatabase);
begin
  inherited Create(AOwner);
  self.Database:= Database;
end;

end.

Leider taucht ein nicht genauer spezifizierter Fehler auf.
Kann jemand helfen?

[sakura]

Konstruktoren von Komponenten müssen einen festen Aufbau haben. Wenn Du einen im Code nutzen willst, dann kannst Du eine 2. Variante anbeiten:

Delphi-Quellcode:

unit akQuery;

interface

uses
  SysUtils, Classes, DB, mySQLDbTables;

type
  akQuery = class(TmySQLQuery)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override; // oder komplett weglassen
    constructor CreateDb(AOwner: TComponent; Database: TmySQLDatabase);
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [akQuery]);
end;

{ akQuery }

constructor akQuery.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

constructor akQuery.CreateDb(AOwner: TComponent; Database: TmySQLDatabase);
begin
  Create(AOwner);
  self.Database:= Database;
end;

end.

......

[barnti]

Hallo Sakura,

leider immer noch nicht. Beim Einbinden der Unit kommt diese Fehlermeldung:
[Fatal Error] Unit1.pas(7): Could not compile used unit 'akQuery.pas'

[sakura]

Erstelle mal ein neues Projekt und füge die Unit (SHIFT+F11) hinzu. Dann solltest Du eine genauere Fehlermeldung erhalten.

......

[barnti]

Hallo Sakura,

akQuery = class(TmySQLQuery) // [Error] akQuery.pas(9): Identifier redeclared: 'akQuery' Habe ich geändert. Danke Dir. Jetzt scheints zu klappen!

[sakura]

*g* Ja, Du hattest den Namen der Klasse, gleich dem der Query. Btw, alle Klassennamen in Delphi sollten mit einem T beginnen - ist einfach gängig und Teil der unverbindlichen und doch oft verbindlichen Code-Style-Guidelines

......