IDE BDS2006 - Modell verliert "TEB_StringGrid" (eigene Kl.)

[EccoBravo]

Hallo, ich hänge den Code zu meiner obigen Frage mal an:

Delphi-Quellcode:

unit EB_StringGrid;

interface

uses
  SysUtils, Classes, Controls, Grids;

type
  TEB_StringGrid = class(TStringGrid)
  strict private
      FWert: string;
      FWort: string;
      FGanz: integer;
      FZahl: single;

      function GetWort(i,j:integer) : string;
      procedure SetWort(i,j:integer;val : string);

      function GetZahl(i,j:integer) : single;
      procedure SetZahl(i,j:integer;val : single);

      function GetGanz(i,j:integer) : Integer;
      procedure SetGanz(i,j:integer;val : Integer);

  private

    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
      property Wort(i,j:integer) : string read GetWort write SetWort;
      property Ganz(i,j:integer) : Integer read GetGanz write SetGanz;
      property Zahl(i,j:integer) : single read GetZahl write SetZahl;

  { Public-Deklarationen }
  published

    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('EB_Tools', [TEB_StringGrid]);
end;

{ TEB_StringGrid }

function TEB_StringGrid.GetWort(i,j:integer): string;
begin
end;
procedure TEB_StringGrid.SetWort(i,j:integer;val : string);
begin
end;

function TEB_StringGrid.GetGanz(i,j:integer): Integer;
begin
end;
procedure TEB_StringGrid.SetGanz(i,j:integer;val : Integer);
begin
end;

function TEB_StringGrid.GetZahl(i,j:integer): single;
begin
end;
procedure TEB_StringGrid.SetZahl(i,j:integer;val : single);
begin
end;
procedure TEB_StringGrid.SetZahl(i,j:integer;val:single;rn:integer);overload;
begin
end;


end.

Viele Grüße

E. B.