Из Мемо в Мемо

[serg1980serg]

Есть Мемо1 с текстом типа:
Player1 зашел
Player2 зашел
Player1 вышел

Как сделать так, чтоб в Мемо2 скопировались только те Player которые еще не "вышли"? (отобразить в Мемо2 только имена, без слова "зашел").

[Streletz]

Парсинг Memo1 при событии OnChange?

[serg1980serg]

Я новичек. Так что мне твой ответ ни о чем не говорит.

У меня на форме два мемо (в одном из которых есть текст, а другой пустой) и одна кнопка, по клику которой должно происходить копирование из мемо1 в мемо2 часть текста с определенным условием, которое я указал выше.

Мне бы пример кода, как это можно реализовать.

[Serge_Bliznykov]

во-первых, кто у Вас пишет в Мемо1? пользователь ручками вбивает или откуда в Memo1 возникают данные?

во-вторых, возможно ли ситуация и что в этом случае делать, если в мемо1 будет примерно такой текст:
Player3 зашел
Player2 вышел
Player1 зашел
Player1 зашел
Player1 зашел
Player2 зашел
Player1 вышел

Что должно быть записано в Memo2 ???

начнём с этого, а дальше видно будет...

[serg1980serg]

Имеется лог файл в котором статистика захода и выхода людей на сервер. Из него в мемо1 я перенес данные с отрубанием лишнего хлама. Хочу теперь в мемо2 вынести список людей которые в данный момент на сервере.

И ситуация что сначала вышел потом зашел отсутствует. Всегда порядок: зашел, вышел.

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var xList: TStringList;
    i,j: Integer;
    s1,s2: String;
begin
  xList:=TStringList.Create;
  xList.Sorted:=True;
  xList.CaseSensitive:=False;
  xList.Duplicates:=dupIgnore;
  for i:=0 to Memo1.Lines.Count-1 do begin
    s1:=Copy(Memo1.Lines.Strings[i],Length(Memo1.Lines.Strings[i])-4,5);
    s2:=Trim(Copy(Memo1.Lines.Strings[i],1,Length(Memo1.Lines.Strings[i])-5));
    if AnsiSameText(s1,'зашел') then xList.Add(s2)
    else if AnsiSameText(s1,'вышел') then begin
      j:=xList.IndexOf(s2);
      if j>=0 then xList.Delete(j);
    end;
  end;
  Memo2.Lines.Assign(xList);
  xList.Free;
end;

[serg1980serg]

Огромное спасибо.