程序代码如下:(注意6个按钮都用这一个代码,变量i是用来区分它们的,也就是说它们的tag属性分别是1~6)
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=(Sender As TButton).tag;
IdTCPClient1.Host:='192.168.4.1';
IdTCPClient1.Port:=1111;
IdTCPClient1.Connect();
case i of
1:IdTCPClient1.WriteLn('A');
2:IdTCPClient1.WriteLn('B');
3:IdTCPClient1.WriteLn('C');
4:IdTCPClient1.WriteLn('D');
5:IdTCPClient1.WriteLn('E');
6:IdTCPClient1.WriteLn('F');
end;
IdTCPClient1.Disconnect;
end;