Скачать: CL | DM;

Почему компилируется?   Найти похожие ветки 

← →
Cobalt ©   (2013-01-17 11:16) [0]

uses  ... Grids...

 TStringGridEx = class(TStringGrid)
 private
   fSelectStarted: boolean;
   function CalcSelection(const ACol, ARow: integer): boolean;
   procedure SetSelectStarted(const Value: boolean);
   procedure DrawSelectStarted;
 protected
   property SelectStarted: boolean read fSelectStarted write SetSelectStarted;
   procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
     AState: TGridDrawState); override;
   procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
     X, Y: Integer); override;
   procedure KeyDown(var Key: Word; Shift: TShiftState); override;
 end;

 TStringGrid = class(TStringGridEx);

 TfrmReserveInfo = class(TForm)
   pnlTop: TPanel;
   cbTimeStep: TComboBox;
   lblTimeStep: TLabel;
   sgReserveInfo: TStringGrid;
Я ожидал увидеть ошибку типа "Идентификатор уже объявлен"

---

← →
sniknik ©   (2013-01-17 11:21) [1]

без упреждающего объявления типов было бы затруднительно делать ссылки на самого себя... например. а это распространенная практика.

---

← →
icWasya ©   (2013-01-17 11:35) [2]

В одном модуле создать класс в тем же именем действительно невозможно. А так - в первой строке ссылка на класс Grids.TStringGrid, а во второй - объявление нового класса с именем TStringGrid.

---

← →
sniknik ©   (2013-01-17 12:08) [3]

> В одном модуле
кстати да.
можешь после где нибудь нарваться на ошибку "не совпадение типов TStringGrid и TStringGrid"... просто объявленных в разных модулях.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c