很很很简单问题,,,,想不明白...(50分)

  • 主题发起人 主题发起人 jmh521
  • 开始时间 开始时间
J

jmh521

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.BitBtn1Click(Sender: TObject);
var
str,str1 : string;
begin

str := richedit2.Text;

try
str1 := listview1.Selected.SubItems.Text ;
showmessage(str1);
//str1(本机IP)
idudpserver1.Binding.SendTo(str1, 2020, str[1], length(str));
//这里老出错,过不去.
except
on exceptiondo

begin

exit;
end;

end;

end;
我写明192.168.0.11的话就没事,,但是用变量赋的话就不行了..
 
idudpserver1.Binding.SendTo(pchar(str1), 2020, str[1], length(str));
传进去的参数str1改成pchar(str1)试试
 
錯誤提示是什麽?
你的Str1 := ListView1.Selected.SubItems.Strings[]試試
跟蹤下,看看你的Str1的值
 
不行..错误是..10 ' is not a valid integer value
 
str1 := listview1.Selected.SubItems[0];//0按实际填写
 
多人接受答案了。
 
后退
顶部