Проблема с личкой в чате

[Shouldercannon]

У меня возникли две проблемы с чатом. Когда подключаю код с обработкой %0, %1, %2 перестаёт работать личка. И не получается отрезать %+цифра при отправке сообщения в чат.

[Dj_smart]

хм... а не Delete(s,1,2); ?

[Shouldercannon]

Нет не получается вот что происходит

  {Если мы хотим послать приватное сообщение, но не выбрали адресата -
   нас покарают замечанием :) и выгонят из обработчика}
  if (CheckBox1.Checked)and(LVUsers.ItemIndex < 0) then begin
   ShowMessage('At first you should select the user in the User List!');
   Exit;
  end;
  {Если это приватное сообщение}
  if CheckBox1.Checked then
   s := '#P'+LVUsers.Items[LVUsers.ItemIndex].Caption+';' {добавляем спец.команду и адресат}
  else {А если не очень приватное?}
   s := '#M'; {Просто спец.команду}
  {Добавляем наше имя (от кого) и само сообщение}
  //
  showmessage(s); //показывает #M
  //
  s := s+nickname+';'+Edit1.Text;
  //
  showmessage(s); //показывает #M%0Client;0
  //
  Delete(s,2,3);
  //
  showmessage(s); //показывает #Client;0
  //
  {Посылаем все это добро по сокету}
  ClientSocket1.Socket.SendText(s);
  {И снова ждем ввода в уже чистом TEdit-е}
  Edit1.Text := '';
  ActiveControl := Edit1;

[Dj_smart]

Брррр... вам нужно отрезать #M%0 или %0? Чтото я не вьеду, что отрезать-то

[Shouldercannon]

Брррр... вам нужно отрезать #M%0 или %0? Чтото я не вьеду, что отрезать-то

#M - оставить; %0 - отрезать

[Dj_smart]

Delete(s,pos('%',s),2);
Вроде так...

[Shouldercannon]

Спасибо работает. Теперь надо разобраться с проблемой лички.
Когда я подключаю данный

  //Добавили Item
  L:=LVUsers.Items.Add;
  //Получаем наименование (возможно) с символами %0
  s1:=Copy(s,1,Pos(';',s)-1);
  //Разбираемся с индексом
  if Copy(s1,1,2)='%0' then L.ImageIndex:=0;
  if Copy(s1,1,2)='%1' then L.ImageIndex:=1;
  if Copy(s1,1,2)='%2' then L.ImageIndex:=2;
  //Удаляем из строки ведущий %n
  Delete(s1,1,Pos('%',s1)+1);
  //И только после этого присваиваем имя
  L.Caption:=s1;
  //Убираем все символы до ;
  Delete(s,1,Pos(';',s));

то личка перестает работать, тоесть он как-то мешает.

[Dj_smart]

if pos('%',s1)=1 then Delete(s1,1,Pos('%',s1)+1);

?
т.к. возможен вариант когда % в строке не будет и в результате один сивол всёже удалится...

[Shouldercannon]

Сообщение от Dj_smart

if pos('%',s1)=1 then Delete(s1,1,Pos('%',s1)+1);

?
т.к. возможен вариант когда % в строке не будет и в результате один сивол всёже удалится...

Возможно из-за этого.

if pos('%',s1)=1 then Delete(s1,1,Pos('%',s1)+1);

Не помогло.
Насколько я понял после нескольких тестирований весь косяк приходится на эти части

  //Если подключить этот код личка не доходит, если отключить, тора ботает
  //Добавили Item
  L:=LVUsers.Items.Add;
  //Получаем наименование (возможно) с символами %0
  s1:=Copy(s,1,Pos(';',s)-1);
  //Разбираемся с индексом
  if Copy(s1,1,2)='%0' then L.ImageIndex:=0;
  if Copy(s1,1,2)='%1' then L.ImageIndex:=1;
  if Copy(s1,1,2)='%2' then L.ImageIndex:=2;
  //Удаляем из строки ведущий %n
///////////////////////////////////////
//Из-за этого места не пашет личка!!!//
///////////////////////////////////////
  Delete(s1,1,Pos('%',s1)+1); //Из-за этого Delete не работает
  //И только после этого присваиваем имя
  L.Caption:=s1;
  //Убираем все символы до ;
  Delete(s,1,Pos(';',s));

//

  {Если это приватное сообщение}
  if CheckBox1.Checked then
   s := '#P'+LVUsers.Items[LVUsers.ItemIndex].Caption+';' {добавляем спец.команду и адресат}
  else {А если не очень приватное?}
   s := '#M'; {Просто спец.команду}
  {Добавляем наше имя (от кого) и само сообщение}
  s := s+nickname+';'+Edit1.Text;
  //Здесь я пытаюсь удалить %+ещё один символ стоящий за %, опять таки не получается.
///////////////////////////////////////
//Из-за этого места не пашет личка!!!//
///////////////////////////////////////
  Delete(s,pos('%',s),2); //Из-за этого Delete не работает

У обоих есть Delete из-за очевидно неправильного удаления и не работает личка.

[Shouldercannon]

Вот та самая причина, по которой личка не доходит адресату

if (to_ = nickname)or(from_ = nickname) then

у того, кому посылается сообщение не происходит ниодного совпадения, поэтому личка не выводится.