[sanya920]

Всем доброго времени суток! У меня возникла такая проблема:
Необходимо найти текст состоящий из 20 сисволов,известны только 4.
Вот пример, такая строка: kod=4375856395648558
Тоесть найти kod= и прибавить еще 16 символов справа
Как это все сделать? Заранее спасибо!

[Bob256]

Код:

Memo1.Lines.NameValueSeparator := '=';
Result:=Memo.Lines.Values['kod'];

[sanya920]

попробовал, выводит пустое значение((

[NumLock]

у 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;

[sanya920]

Сообщение от NumLock

у 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;

Спасибо, то что надо!