关于数据发送，请高手注释下好吗(0)

请高手注释下面这段好吗procedure TForm4.Refresh1Click(Sender: TObject);begin If (ListView1.ItemIndex = -1) Then Exit; ListView1.Items.Clear; Data := IntToStr(C_REQUESTLIST)+' '+Edit1.Text+#10; Sock := StrToInt(StatusBar1.Panels[0].Text); If (Sock > 0) Then Send(Sock, Data[1], Length(Data), 0); Data := IntToStr(C_CURRENTPATH)+' 1'#10; If (Sock > 0) Then Send(Sock, Data[1], Length(Data), 0);end;

帮帮我好吗

看你说的怪可怜的，我就说说，仅供参考。//名称为Refresh1的控件的单击事件.procedure TForm4.Refresh1Click(Sender: TObject);begin//如果listview1控件没有选中项,则推出过程. If (ListView1.ItemIndex = -1) Then Exit;//清除ListView1里的所有数据 ListView1.Items.Clear;//把变量 C_REQUESTLIST 转换为字符串并加空格加Edit1里的内容+#10(换行符) Data := IntToStr(C_REQUESTLIST)+' '+Edit1.Text+#10;//获取状态条面板0的文本,并转换为整数. Sock := StrToInt(StatusBar1.Panels[0].Text);//如果Sock大于0 利用Send过程发送数据,send应该是自定义过程 If (Sock > 0) Then Send(Sock, Data[1], Length(Data), 0);//在此组织数据.同理 Data := IntToStr(C_CURRENTPATH)+' 1'#10;//再次发送数据.同理 If (Sock > 0) Then Send(Sock, Data[1], Length(Data), 0);end;可惜你没有分.

谢谢你 草原骏马，抱歉，我没有分，而且很菜