|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск текста в Memo...
Всем доброго времени суток! У меня возникла такая проблема:
Необходимо найти текст состоящий из 20 сисволов,известны только 4. Вот пример, такая строка: kod=4375856395648558 Тоесть найти kod= и прибавить еще 16 символов справа Как это все сделать? Заранее спасибо! |
#2
|
|||
|
|||
Код:
Memo1.Lines.NameValueSeparator := '='; Result:=Memo.Lines.Values['kod']; |
#3
|
|||
|
|||
попробовал, выводит пустое значение((
|
#4
|
||||
|
||||
у Memo1.WordWrap:=False;
Код:
type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject); begin Tag:=Pos('kod=', Memo1.Text); if Tag>0 then Edit1.Text:=Copy(Memo1.Text, Tag, 20); end; Пишу программы за еду. __________________ |
#5
|
|||
|
|||
Цитата:
|