1,593
社区成员
发帖
与我相关
我的任务
分享
function acsend(st:string):Boolean;
var
Acontext:TIdContext;
begin
AContext.Connection.Socket.WriteLn(st);
end;
procedure TForm1.TcpsConnect(AContext: TIdContext);
begin
acsend(mmo1.Text);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
acsend(mmo1.Text);//这里点了就出错了,那个acc..什么的错误.
end;