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

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按实际填写

多人接受答案了。