memo pos парсенг

[divwond]

помогите понять что не так..
флаги находит , но не копирует верно.копирует от "а" до конца текста

var
  a: Integer;
  b: Integer;
  s: string;
begin
  memo1.Text:=UTF8ToAnsi(memo1.text);
  a:=pos('/images/fl/',memo1.lines.Text);
  b:=pos('v></div></div></t',memo1.lines.Text) ;
  s:=copy(memo1.lines.Text,a,b);
  memo2.text:=(s);
end;

[Pein95]

var
  a: Integer;
  b: Integer;
  s: string;
begin
  memo1.Text:=UTF8ToAnsi(memo1.text);
  a:=pos('/images/fl/',memo1.lines.Text);
  a:=a+11;
  b:=pos('v></div></div></t',memo1.lines.Text) ;
  s:=copy(memo1.lines.Text,a,b);
  memo2.text:=(s);
end;

попробуйте так

[l1pton17]

В copy(memo1.lines.Text,a,b), "b" - длина текста, а не конечный индекс.
Примерно так должно выглядеть:

var
  a: Integer;
  b: Integer;
  s: string;
begin
  memo1.Text:=UTF8ToAnsi(memo1.text);
  a:=pos('/images/fl/',memo1.lines.Text);
  a:=a+11;
  b:=pos('v></div></div></t',memo1.lines.Text) ;
  s:=copy(memo1.lines.Text,a,b-a+1);
  memo2.text:=(s);
end;

[divwond]

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

В copy(memo1.lines.Text,a,b), "b" - длина текста, а не конечный индекс.
Примерно так должно выглядеть:

var
  a: Integer;
  b: Integer;
  s: string;
begin
  memo1.Text:=UTF8ToAnsi(memo1.text);
  a:=pos('/images/fl/',memo1.lines.Text);
  a:=a+11;
  b:=pos('v></div></div></t',memo1.lines.Text) ;
  s:=copy(memo1.lines.Text,a,b-a+1);
  memo2.text:=(s);
end;

спасибо=)перепутал малех работу функции...