Тема: Поиск по тексту в Memo
Показать сообщение отдельно
  #3  
Старый 28.11.2010, 14:14
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
  
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию
Код:
procedure TForm2.Button2Click(Sender: TObject);
var i:integer;
begin
  i:=pos('Comments:', form1.memo1.Text)+length('Comments:');
  form2.memo1.text := trim(copy(form1.memo1.Text, i, length(form1.memo1.Text)-length('Comments:')));
end;
Вроде работать должно...
__________________
Помогаю за Спасибо
Ответить с цитированием