закинул на кнопку
Код:
Begin
v:= ListView2.ItemIndex ;
frmMain.Button4Click(nil);
end;
Такая же ошибка
прокинул Через UDP
//клиент
procedure TfrmMain.ListView2ButtonClick(const Sender: TObject;
const AItem: TListItem; const AObject: TListItemSimpleControl);
var
v:integer;
s:string;
begin
v:= ListView2.ItemIndex ;
s:=IntToStr(v);
IdUDPClient1.Send(s);
End;
//Сервер
procedure TfrmMain.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
const AData: TIdBytes; ABinding: TIdSocketHandle);
var
s:string;
v:Integer;
begin
s:='';
s:=bytestostring(AData);
v:= StrToint(s);
ListView2.Items.Delete( v );
end;
через раз выдает ошибку можно как-нибудь убить старую процедуру (Клиент) ?