Склеить текст в memo

Posted by obzor under Delphi

Подскажите, как склеить текст в двух мемо по первым символам
в первом мемо есть LK-12430………(начало строки), во тором есть LK-12430, то есть надо склеить эту строку и вывести результат в мемо3

aknyazev

Ну, например, как-то так:

//...
I1,I2 : integer;
//...
// Вот индексы начала нужных строк в каждом мемо:
I1 := pos('LK-12430',Memo1.Lines.Text);
I2 := pos('LK-12430',Memo2.Lines.Text);
// Вот собственно  склеивание:
Memo3.Lines.Text := copy(Memo1.Lines.Text,I1,length(Memo1.Lines.Text)-I1+1) +
  copy(Memo2.Lines.Text,I2,length(Memo2.Lines.Text)-I2+1);

тема на форуме

Похожие статьи

• Выбор записей из ListBox в соответствии со значением ComboBox и размещение результата в Memo
• Чтение определенный строки из текстового файла
• Как распечатать текст из Memo?
• Random слов в Memo
• Случайная строка из текстового файла
• Использовать переменную окружения в пути файла
• Поиск нескольких слов в строке
• Разность двух полей Memo
• Загрузить файл в Memo с помощью UserName
• Загрузить два файла в Memo