各位高手好.       若原 A 繼承 B ,B 繼承 C 後來 B 改繼承 E 那是不是更改如下就 OK!!] TYPE   B=class(C)  -----> B=class(e) 

Yes

引言:

引言: 各位高手好. 若原 A 繼承 B ,B 繼承 C 後來 B 改繼承 E 那是不是更改如下就 OK!!] TYPE B=class(C) -----> B=class(e) < face="Verdana, Arial, Helvetica"> QOO10: 有沒有具體實例

有,但有問題,我在 try 原因:如下 FCust 繼承 SNGTBFORM , SNGTBFORM 繼承 ENTERFORM BUT 無法設 ENTERFORM 之 property 如下: udtype.pas ----------------------------------------------------------------------unit udType; interface type F10FLAG=(dInvtory,dClient,dBrand,dGroup,dSuplyer,dAcmaster,dCountry, dStaff,dDept,dPhrase,dBank,dEmpty); implementation end. ENTERFORM SOURCE --------------------------------------------------------------------------- unit enterformu interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, adstable, Db, TypInfo,dbctrls,Grids, DBGrids, Mask,udtype; ------->User Define type type TEnterForm = class(TForm) private F10Point:F10FLAG; //pty; { Private declarations } protected public Published Property pf10point:F10FLAG read F10Point write 10Point; end; -------------------------------------------------------------------- unit SNGTBFORMU interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ToolWin, ComCtrls, ExtCtrls, StdCtrls, DBCtrls, Enterformu,udtype; ---------->enterform unit type TSNGTBFORM = class(TEnterForm) . . . --------------------------------------------------------------------------- unit FCust; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, ExtCtrls, Buttons, ToolWin,ComCtrls, DBCtrls, StdCtrls, Mask,udtype,SNGTBFORMU; type TFCUST = class(TSNGTBFORM) ... ... procedure TFCUST.dbeCli_CurrnoEnter(Sender: TObject); begin inherited; pf10point:=dCountry; // -> 此行掛了又是type error(incompatible type) end;

Myabe dCountry is defined elsewhere with the same name? Try it: pf10point := udType.dCountry;

引言: Myabe dCountry is defined elsewhere with the same name? Try it: pf10point := udType.dCountry;

感謝各位用 pf10point := udType.dCountry; 就 ok 了,但 我在 SNGTBFORMU 就不需為什麼如此??

1. pf10point:=dCountry; // -> 此行掛了又是type error(incompatible type) 我看沒問題, 應該是同名的參數重複宣告, 找看看 2. 好像與原來問題無關 若原 A 繼承 B ,B 繼承 C 後來 B 改繼承 E 那是不是更改如下就 OK!!] TYPE B=class(C) -----> B=class(e) 更改繼承是沒有問題, 但在Delphi整合環境中更改Form之繼承就要小心 例如: TFormA=class(TForm1); TFormB=class(TForm1); TFormC=class(TForm1); 如果你改成TFormA=class(TForm2);, 可能TFormb,TFormC都同時改了, 我都是離開Delphi用NOTEPAD改

引言: 感謝各位用 pf10point := udType.dCountry; 就 ok 了,但 我在 SNGTBFORMU 就不需為什麼如此??

In SNGTBFORMU, udType is at the end of the uses clauses such that the compilter will treat dCountry as uType.dCountry. Perhaps you have re-used the name "dCountry" elsewhere (say, unit1) and udType appear before unit1 in the use clauses.