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

[dkfl10011]

memo1.Text:=TT(слово1,слово2,memo1)

[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.m.rambler.ru/'));
  memo1.Text:=TT('p-hv-5','</div>',memo1)
end;


end.

[bulldog5293]

а из 10 поста не кого это не смутило?

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

тем более выкень эту utf8toansi, она не всегда помогает

[Stilet]

не кого это не смутило?

А что должно смущать там?

выкень эту utf8toansi

А если действительно нужно преобразование в Анси из UTF8? Что предложишь?

[develsnik]

если убрать ,то не будут отображаться русские символы

[Аватар]

memo1.Text:=TT('p-hv-5','</div>',memo1.Text);
только в #5 и #6 явно покороче будет, чуть подправить

[develsnik]

memo1.Text:=TT('p-hv-5','</div>',memo1.Text);
только в #5 и #6 явно покороче будет, чуть подправить
__________________
ошибка на memo1.text

[Аватар]

О, пардон, не заметил m:TMemo.

function TT(BeginText,EndText,Value: String): String;
var i1,i2: Integer;
begin
  Result:='';
  i1:=PosEx(BeginText,Value,1);
  if i1>0 then begin
    i2:=PosEx(EndText,Value,i1+Length(BeginText));
    if i2>0 then Result:=Copy(Value,i1,i2-i1+Length(EndText));
  end;
end;

вызывать

  Memo1.Text:=TT('<div','</div>',Memo1.Text);

StrUtils в uses

[develsnik]

memo1.Text:=idhttp1.Get('http://www.m.rambler.ru/');
жалуется на эту строку (