我增加了屬性ServerName和事件OnTestEnd，但編譯時出錯，明明這屬性和事件在Type Library中已經定義，為什麼還出錯呢？該如何修改？    ============================================================= YzFTPImpl.pas ============================================================= unit YzFTPImpl; {$WARN SYMBOL_PLATFORM OFF} interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ActiveX, AxCtrls, YzFTP_TLB, StdVcl; type TYzFTP = class(TActiveForm, IYzFTP) private { Private declarations } FEvents: IYzFTPEvents; procedure TestEndEvent(Sender: TObject); protected { Protected declarations } procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override; procedure EventSinkChanged(const EventSink: IUnknown); override; function Get_ServerName: WideString; safecall; procedure Set_ServerName(const Value:WideString); safecall; public { Public declarations } procedure Initialize; override; end; implementation uses ComObj, ComServ; {$R *.DFM} { TYzFTP } procedure TYzFTP.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); begin { Define property pages here. Property pages are defined by calling DefinePropertyPage with the class id of the page. For example, DefinePropertyPage(Class_YzFTPPage); } end; procedure TYzFTP.EventSinkChanged(const EventSink: IUnknown); begin FEvents := EventSink as IYzFTPEvents; inherited EventSinkChanged(EventSink); end; procedure TYzFTP.Initialize; begin inherited Initialize; OnTestEnd := TestEndEvent; end; function TYzFTP.Get_ServerName: WideString; begin Result := WideString(ServerName); end; procedure TYzFTP.TestEndEvent(Sender: TObject); begin if FEvents <> nil then FEvents.OnTestEnd; end; procedure TYzFTP.Set_ServerName(const Value: WideString); begin ServerName := Value; end; initialization TActiveFormFactory.Create( ComServer, TActiveFormControl, TYzFTP, Class_YzFTP, 1, '', OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL, tmApartment); end. ============================================================== Error.TXT ============================================================== Build [Error] YzFTPImpl.pas(x1x): Undeclared identifier: 'OnTestEnd' [Error] YzFTPImpl.pas(x2x): Not enough actual parameters [Error] YzFTPImpl.pas(x3x): Undeclared identifier: 'ServerName' [Error] YzFTPImpl.pas(x4x): Undeclared identifier: 'ServerName' [Fatal Error] YzFTP.dpr(6): Could not compile used unit 'YzFTPImpl.pas'

一、程式碼未縮排，閱讀困難 二、本帖內容與與Borland相關產品技術問題,僅限產品安裝/BUG/升級的問題無關    依上述二點，本帖予以刪除