tmp2:="33 32 31"; //ожидается что это 321
g:=0;
cnt:=0;
while g<=length(tmp2) do begin
if pos(' ',tmp2)>0 then begin
delete(tmp2,pos(' ',tmp2),1);
inc(cnt);
end;
inc(g);
end;
inc(cnt);
SetLength(buff, cnt);
tmp2:=UDP_Server_Client_1.Edit5.Text;
g:=0;
cnt:=0;
while g<=length(tmp2) do begin
if pos(' ',tmp2)>0 then begin
tmp3:=tmp2;
delete(tmp3,pos(' ',tmp3),length(tmp3));
delete(tmp2,1,pos(' ',tmp2));
tmp3:=tmp3;
buff[cnt]:=strtoint(tmp3);
inc(cnt);
end;
inc(g);
end;
tmp2:=tmp2;
buff[cnt]:=strtoint(tmp2);
inc(cnt);
ёUDP_Server_Client_1.IdUDPClient1.SendBuffer(UDP_Server_Client_1.IdUDPClient1.Host,UDP_Server_Client_1.IdUDPClient1.Port,buff);
//UDP_Server_Client_1.IdUDPClient1.Send(UDP_Server_Client_1.Edit3.Text);
//если нужно отправить просто строку, то отравляем без изменений
