Курсовая работа: Проектирование и разработка программы ЧАТ для локальной сети
x:=0;
For j:=2 to len+1 do
Begin
x:=x+1;
If Copy(text,j,1)=Chr(152) then
Begin
UItems:=UserListView.Items.Add;
UItems.Caption:=Copy(text,pos,x-1);
If pos>2 then UItems.ImageIndex:=0 else UItems.ImageIndex:=1;
pos:=j+1;
x:=0;
end;
end;
end;
end;
end;
procedure TForm1.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Подключениексерверу.');
end;
procedure TForm1.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Серверненайден.');
end;
procedure TForm1.ServerTimerTimer(Sender: TObject);
begin
If ServerSocket.Socket.ActiveConnections<>0 then