各位前輩及版主大人：

我撰寫了A物件和B物件，並放於A_.pas和B_.pas單元檔內，由於a物件和B物件，性質有部份相同同為資料庫輸入物件，
我在TYPE 宣告段內，都宣告了如下
<textarea class="delphi" rows="10" cols="60" name="code"> type // 只有選擇特定的key形式，有其特別意義 TDB_Field_KEY_TYPE = (tcPrimary_Key, tcNon_Key); TDB_Field_ValueCheck = (tcNon_Check, tcForeign_Key, tcNot_Null); TDB_Field_ValueType = (tcDate, tcString, tcNumber, tcBoolean, tcStringList, tcDBRUNSQL); TDB_Field_InputMethod = (tcManual, tcAutoNO, tcFormQuery); // 輸入方法選擇 人工、自動編號、表單查詢選擇</textarea> 單一物件開發時，沒有發現問題，但是兩個物件開始使用後，卻發生編譯會出現錯誤訊息，如附件 不知道是否只能將各單元當內的type宣告，改名，還是有其他作法？ 真是頭大了! 感謝！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

附加檔案：45d2366fd2f52_Error.jpg

可以用泛化概念,把共用的型態變數推至父類別
或是用VarA:unitA.XXXX及VarB:unitB.XXXX領域限定

這有幾種狀況
1. A_.pas 使用 B_.pas, 但 B_.pas 沒有uses A_.pas
2. B_.pas 使用 A_.pas, 但 A_.pas 沒有uses B_.pas
3. A_.pas, B_.pas 彼此都 uses 對方.

解法
1. 將這些宣告在 B_.pas 中
2. 將這些宣告在 A_.pas 中
3. 另外開起一個空架構的 xx.pas, 將這些宣告在 xx.pas 中.
A_.pas, B_.pas 都 uses xx.pas.

第3種解法也適用 1,2 狀況

------
將問題盡快結案也是一種禮貌!

我也常遇到同名的狀況, 但是Delphi在宣告物件或型別時, 前頭可以加上Unit Name, 如底下紅色所述。
使用AUnit的函式時, 就用AUnit的宣告, 指定清楚, 應該就能避開你所說的困擾。
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
A: AUnit.TMyClass;
B: BUnit.TMyClass;
end;

同名的問題很常見, 怎麼解要視您整體的狀況來決定,

A, B 兩元件是否要同共這些同名的型態 ?
若是共用, 最好是移至一個共用的 unit,
若不是共用, 就需要更改型別名稱, 或是在使用時冠上 unit name, 也就是 yorkland 講的方式.
自己是不太喜歡另外再冠上 unit name, 但有時還是不能避免.