-1

这是我从 TStringGrid 类继承的类。我想创建一个将使用数据库中的数据填充的网格。但现在这只是一个简单的类存根:

unit clsTCustomStringGrid;

interface

    uses Grids, Dialogs;

    type
        TCustomStringGrid = class (TStringGrid)
            public
                procedure SayHello ();
        end;

implementation

    procedure TCustomStringGrid.SayHello ();
    begin
        ShowMessage('Hello World!');
        // procedure body
    end;

end.

这是我的主要形式:

uses ...
     ...
    TCustomStringGrid; // here is where the compilation stops

    ...
    ...
    ...

    procedure TMyForm.FormShow (Sender: TObject);
    var
        MySG: TCustomStringGrid;
    begin
        MySG := TCustomStringGrid.Create(self);
        MySG.Left := 100;
        MySG.Top := 40;
        MySG.Parent := self;
        MySG.SayHello();
    end;

我得到的错误:

File not found: 'TCustomStringGrid.dcu'

请帮我弄清楚我做错了什么。

4

2 回答 2

1

在 uses 子句中添加 clsTCustomStringGrid,而不是 TCustomStringGrid

于 2013-04-18T02:33:37.220 回答
1

您的类在 中声明unit clsTCustomStringGrid;,但您的uses子句正在使用TCustomStringGrid(这是类名)。

更改您的使用条款:

uses ...
  ...
  clsCustomStringGrid; 
  ...
于 2013-04-18T02:34:33.850 回答