Проблемка в чате...С онлайн-списком

[Aliens_wolfs]

Можно делать проверку чтобы небыло повторяющихся юзеров
примерно так

{Проверка на пришедшее имя юзера}
  if Copy(soob,1,2) = 'mi' then begin
   Delete(soob,1,2);
{Добавляем его в юзер лист}
If pos(AnsiLowerCase(soob), AnsiLowerCase(ListBox1.Items.Text)) = 0 then   
   ListBox1.Items.Add(soob);

И еще одна подсказка можно с TSocketClient или же TSocketServer таким образом работать при подключении помещать свой массив данных с нужной инфой в Socket.Data Туда можно было бы и индекс поместить и имя пользователя Сокету дать без всяких таймеров на проверку, при отключении клиента можно было бы всю инфу о нем увидеть или удалить с листа по индексу с массива помещенного в Socket.Data. Так было бы надежнее и правильнее.

[ISPO]

а ьы бы не мог со мной в скайпе связаться?обсудить бы это...

[Aliens_wolfs]

Как будет время кое что переделаю в вашей програмке под Socket.Data

[ISPO]

Хорошо!Спасибо большое!

[ISPO]

И если можно,то с подробными коментами пожалуйста,так как я с этим не работал еще.

[Aliens_wolfs]

Вот много чего переделал в твоей программке, сделал что сервер все контролирует, выдает список клиентов и список чата подключающему, еще сделал проверку на одинаковые имена, если есть такое имя он выдает сообщение подключающему и отключает его, на Socket.Data не стал данные вводить он теряет их видимо очередной глюк этих компонентов, сделал добавление массивов записей инфы о клиенте в TList так удобнее контролировать записи, сделал что при отсутствии серевера TClientSocket не выдает ошибки, в общем нужно по тестить. Данные Ip и порта теперь можно вносить и она сохраняет при закрытии программы, также сделал одной кнопкой можно запускать сокет. Дизайн сам доделаешь, не стал заморачиваться, кое какие функции описал в ней, будет время опишу подробнее. Учись работать с буфером с записями.
А вообще я уже давно отказался от этих сетевых компонентов TClientSocket и TServeSocket больно глючные они, так не для серьезных программ можно использовать и для начинающих они пойдут.

[ISPO]

спасибо огромное!надеюсь,допишешь описание если что,щас буду втыкать сидеть)