Показать сообщение отдельно
  #1  
Старый 23.12.2013, 00:31
tesla tesla вне форума
Прохожий
 
Регистрация: 15.07.2012
Сообщения: 14
Репутация: 10
По умолчанию Копирование текста между знаками

Доброго времени суток!
Есть текст подгружаемый в Memo1 из файла, пример:

:test;1111@4444%8u#
:red;regr@5555%5r#
:edfrtg;rgwrf@6666%6t#
:erwgr;erger@7777%8u#

В Memo2 нужно скопирвоать и вывести текст, который находится ":" и ";"
Пример:

test
red
edfrtg
erwgr

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  f: string;
  k: Integer;
begin
  for k:=0 to Memo1.Lines.Count-1 do
  begin
   f:=Copy(Memo1.Lines.Text, Pos(':',Memo1.Lines.Text)+1, Pos(';',Memo1.Lines.Text)-2);
   Memo2.Lines.Add(f);
  end;
end;

но в memo2 получаю:
test
test
test
test

Пожалуста, помогите!
Ответить с цитированием