procedure a();
begin
Form2.NMFTP1.port := 21;
end;
begin
Form2.NMFTP1.port := 21;
end;
解决方案 »
- 求助编码的问题 & # 1235 什么的怎么才能转化成汉字
- 提示 Canvas don 't allow drawing错误
- 串口通信出错,请帮我看看
- 如何取得游戏 登录界面里的 edit的句柄 ??难道没有一个好的解决方案??大家都来说说!
- FastReport报表如何导出excel格式
- 有哪位高手做过"传奇2私服",我做的私服为什么其它地区无法登陆?
- 如何实现Socket方式访问COM的组件
- 这个出错是什么意思???
- 北京泰思达公司现诚聘DELPHI及数据库高手!!!!!!!!!!!!!!!!!!!!!!!!!!
- 如何编排这个数据库问题?急!!!
- com的问题
- 请教:已有例子可以文字绕x轴转,怎么能让文字绕y轴转?
begin
Form2.NMFTP1.port := 21;
end;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Psock, NMFtp;
type
TForm2 = class(TForm)
NMFTP1: TNMFTP;
private
//加上这句
procedure a();
{ Private declarations }
public
{ Public declarations }
procedure a();
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
//改成这样
procedure TForm2.a();
begin
NMFTP1.port=21
end;
end.
{ Public declarations }
//此句不要
procedure a();
end;
begin
NMFTP1.port=21
end;
end.