Hallo, ich habe eben eine eigene Komponente geschrieben, die registriert sich aber nicht.
Meine Procedure register enthält korrekten Code (mit anderen Packages im Internet verglichen) und ist auch registriert. Hier mal ein Überblick über die
Unit:
Delphi-Quellcode:
unit SortListView;
interface
uses
ComCtrls, classes;
procedure register;
type
TSortDirection = (sdUp, sdDown);
procedure Sort(
const LV: TCustomListView;
const Column: Integer;
Direction: TSortDirection);
implementation
{$R SortListViewIcons.res}
uses
Windows, CommCtrl,
MWKSysUtils;
type
TSortRec =
record
Column: Integer;
Direction: TSortDirection;
end;
TSortListView =
class (tlistview)
private
procedure ColClick(Column: TListColumn);
override;
public
end;
PSortRec = ^TSortRec;
procedure register;
begin
registercomponents('
Standard',[tsortlistview]);
end;
[...]
//dieser Code bezieht sich auf die Komponente.
end.
Der Code im
Package sieht wie folgt aus:
Delphi-Quellcode:
package SortlistViewPackage;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Enthlt die Sortlistview'}
{$IMPLICITBUILD ON}
requires
rtl,
vcl;
contains
MWKSysutils,
//hier eingebunden, damit nicht die Fehlermeldung kommt dass "Die Unit MKWSysUtils impliziert eingebunden wurde"
SortListView
in '
SortListView.pas';
end.
im Anhang die komplette Kompo.
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates