白 白河愁 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-10 #21 procedure TForm1.THEBST1Event(Sender: TObject; Level: Integer; const Status: String); 就是这样了.
Z zqw0117 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-10 #22 procedure TForm1.THEBST1Event(Sender: TObject; Level: Integer; [red]const Status: String[/red]); procedure TXXXX.THEBST_ClassOnEvent(Sender: TObject; Level: Integer;[blue] Status: AnsiString[/blue]); 蓝色部分必须和红色部分声明一致,不能有兼容类型的声明,也不能少const关键字.
procedure TForm1.THEBST1Event(Sender: TObject; Level: Integer; [red]const Status: String[/red]); procedure TXXXX.THEBST_ClassOnEvent(Sender: TObject; Level: Integer;[blue] Status: AnsiString[/blue]); 蓝色部分必须和红色部分声明一致,不能有兼容类型的声明,也不能少const关键字.
Z zqw0117 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-10 #23 所以正确的声明应该是: procedure TXXXX.THEBST_ClassOnEvent(Sender: TObject; Level: Integer; const Status: String);
所以正确的声明应该是: procedure TXXXX.THEBST_ClassOnEvent(Sender: TObject; Level: Integer; const Status: String);
白 白河愁 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-10 #24 谢谢各位, zqw0117 请到 http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1155138 拿分.
