Скопировать из мемо текст

[develsnik]

Добрый день!)
Вот у меня такой вопрос:
Есть memo
В нем есть текст и мне надо скопировать только часть ,начиная от такого то слова и заканчивая таким то.
Как бы это сделать?)
Заранее спасибо)

[Человек_Борща]

Функция Copy.

[Аватар]

PosEx для поиска слов в Memo.Text, ну и Copy как Борщ сказал

[develsnik]

А как это все связать?)
Там количество символом может быть разное!
Поэтому через copy не получится(

[Аватар]

s:='';
i1:=PosEx('Слово1',Memo.Text,1);
if i1>0 then begin
  i2:=PosEx('Слово2',Memo.Text,i1+Length('Слово1'));
  if i2>0 then s:=Copy(Memo.Text,i1+Length('Слово1'),i2-i1-Length('Слово1'));
end;
//в s результат, + куча всяких нюансов, если 'Слово1' или 'Слово2' не одно в тексте

[Stilet]

Получится.

s:=Memo.Lines.Text;
i:=pos('Слово1',s); delete(s,1,i);
i:=pos('Слово2',s); 
...:=copy(s,1,i);

[develsnik]

не получилось(
у меня в memo html код/
вот что должно остаться.

<div class="p-hv-5">
	<h2>
		<a href="/news/">Новости</a>
	</h2>
	
		
		<h3>
			<a href="/news/head/17992392/">Прощание с Андреем Паниным состоится 12 марта</a>
		</h3>
	
		
		<h3>
			<a href="/news/head/17994029/">Путин рассказал, как поддерживает физическую форму</a>
		</h3>
	
		
		<h3>
			<a href="/news/head/17940141/">Пехтин написал заявление о сложении с себя депутатских полномочий</a>
		</h3>
	
		
		<h3>
			<a href="/news/head/17994324/">Нижегородец съел постановление суда в зале заседаний</a>
		</h3>
	
		
		<h3>
			<a href="/news/head/17991964/">Депутат Волков прокомментировал свой «побег» от гаишников</a>
		</h3>
	
</div>

[dkfl10011]

попробуй это:

function TT(const s,s2:string;m:TMemo):string;
var i:integer;st:string;bool:boolean;
begin
i:=0;result:='';
while true do begin
  st:=m.Lines[i];
  inc(i);
if ((PosEx(s,st)<>0) and (PosEx(s2,st)<>0)) then  begin
  result:=copy(st,PosEx(s,st),PosEx(s2,st)+length(s2)); break end
else
if ((PosEx(s,st)<>0) and (PosEx(s2,st)=0)) then begin
  result:=result+copy(st,PosEx(s,st),length(st))+#13#10; bool:=true end
else if(((PosEx(s,st)=0)and(PosEx(s2,st)=0))and(bool)) then
  result:=result+st+#13#10
else if (PosEx(s2,st)<>0) then begin
  result:=result+copy(st,0,PosEx(s2,st)+length(s2)); break end; end;
end;

[Stilet]

Код в студию )

[develsnik]

вот что у меня получилось:
не работает(

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, StrUtils;

type
  TForm2 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
function  TT(const s,s2:string;m:TMemo):string;
var i:integer;st:string;bool:boolean;
begin
i:=0;result:='';
while true do begin
  st:=m.Lines[i];
  inc(i);
if ((PosEx(s,st)<>0) and (PosEx(s2,st)<>0)) then  begin
  result:=copy(st,PosEx(s,st),PosEx(s2,st)+length(s2)); break end
else
if ((PosEx(s,st)<>0) and (PosEx(s2,st)=0)) then begin
  result:=result+copy(st,PosEx(s,st),length(st))+#13#10; bool:=true end
else if(((PosEx(s,st)=0)and(PosEx(s2,st)=0))and(bool)) then
  result:=result+st+#13#10
else if (PosEx(s2,st)<>0) then begin
  result:=result+copy(st,0,PosEx(s2,st)+length(s2)); break end; end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin

  memo1.Text:= utf8toansi(idhttp1.Get('http://www.http://m.rambler.ru/'));
   TT;
end;


end.