04/03/16 02:21 1l+q/+No.net
//クライアント側
procedure buttonpa.click;
begin
clientsocket.socket.sendtext(NAME+'パー ');
end;
//同様に続いてチョキ・グーもつくる
procedure clientsocket.read;
begin
Label := clientsocket.socket.recievtext;
ned;
end.
//サーバー側
procedure serversocket.clientread;
begin
r := serversocket.socket.recievtext;
if p1 <> '' then begin p2 := copy(r,length(r)-5,6); n1 := copy(r,0,length(r) - 6); end;
p1 := copy(r,length(r)-5,6);
n1 := copy(r,0,length(r) - 6);
if (p1 <> '') and (p2 <> '') then begin
if p1 = p2 then serversocket.socket.sendtext(P1+P2+'であいこ');
if (p1='パー ') and (p2='グー ') then serversocket.socket.sendtext(P1P2+'で'+n1+'の勝ち');
//以下省略
end;
end.