Построчный вывод текста с сайта в делфи

[stasa9711]

всем привет , перейду сразу к делу имеется сайт http://odno-like.tk/pr.txt там записаны прокси чтоб вытащить делаю так

 HTML:=idHTTP1.Get(' http://odno-like.tk/pr.txt '); smemo7.Lines.Add(Pars(HTML,'<p>','</p>'));

или же просто исходный код достаю

memo1.Lines.Add(idhttp1.Get(' http://odno-like.tk/pr.txt '))

выходит что то типо этого http://rghost.ru/42632414 (там картинка) как мне сделать чтоб было в мемо было построчно , а не в одну строку много ...у кого не спрашивал никто не знает ......уже 2 дня мучаюсь пож помогите

[Аватар]

Memo1.Text:=StringReplace(Memo1.Text,'?',#13#10,[rfReplaceAll]);

Вместо '?' подставьте код того символа, который на картинке

[stasa9711]

спасибо , а полный код тогда как будет выглядеть ? ведь нужно одновременно и послать гет запрос .... или можно сделать гет отдельно ?

и еще одно когда я этот знак копирую и вставляю вместо "?" то оно переходит на новую строку .....я сделал границы мемо чтоб туда помещался 1 прокся с палочкой на 1 строке .... вообще мне все это нужно чтоб в переменные ip и port попали нужные значения чтоб в дальнейшем их использовать ...решил сделать проверку делал так :

var
IP   : string;
  Port : string;
  CurAcc: integer;
begin
IP:= Copy(Memo1.Lines[CurAcc],1,Pos(':',Memo1.Lines[CurAcc])-1); //Копируем прокси


Port:= Copy(Memo1.Lines[CurAcc],Pos(':',Memo1.Lines[CurAcc])+1,Length(Memo1.Lines[CurAcc])); //Копируем порт
 sLabel38.Caption := ip;
 sLabel58.Caption := port;

но в лабелы ничего не записывается ....как быть ?

[Stilet]

а полный код тогда как будет выглядеть ?

Вот так:

memo1.Lines.Text:=StringReplace(idhttp1.Get(' http://odno-like.tk/pr.txt '),'?',#13#10,[rfReplaceAll]);

[stasa9711]

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

Вот так:

memo1.Lines.Text:=StringReplace(idhttp1.Get(' http://odno-like.tk/pr.txt '),'?',#13#10,[rfReplaceAll]);

биг сэенкс тебе работает ! а как насчет копирование ? все так же лебелы пусты остаются

[Stilet]

Что в Memo1.Lines[CurAcc] содержится?
Проверяй отладчиком.

[stasa9711]

ну так в мемо1 содержатся спарсенные прокси ....

[stasa9711]

по идее должны копироваться но не копируется ........

[Stilet]

содержатся спарсенные прокси

Это я понял ) Приведи пример.
А так же посмотри в отладке что возвращает функция Pos
Далее CurAcc у тебя чему равно? Судя по коду это локальная переменка, значит равна она может быть всему чуму угодно но никак не тому чему нужно (эк я загнул...) - опять таки либо присваивай ей нужное значение, чтоб выбирать нужную строчку либо если она у тебя глобальная убери ее реплику из var этой процедуры.

[stasa9711]

вот пример который работал

procedure TForm1.sButton16Click(Sender: TObject);
var
 IP,Port:string;
 CurAcc : integer;
HTTP : idhttp1;
begin
IP:= Copy(Proxy[CurAcc],1,Pos(':',Proxy[CurAcc])-1); //Копируем прокси
Port:= Copy(Proxy[CurAcc],Pos(':',Proxy[CurAcc])+1,Length(Proxy[CurAcc])); //Копируем порт

      HTTP.ProxyParams.ProxyServer:=IP; //Вставляем прокси
     HTTP.ProxyParams.ProxyPort:=strtoint(Port); //Вставляем порт

end;

но потом я немного поменял и сделал

procedure TForm1.sButton16Click(Sender: TObject);
var
 IP,Port:string;
 CurAcc : integer;
begin
IP:= Copy(Proxy[CurAcc],1,Pos(':',Proxy[CurAcc])-1); //Копируем прокси
Port:= Copy(Proxy[CurAcc],Pos(':',Proxy[CurAcc])+1,Length(Proxy[CurAcc])); //Копируем порт

   slabel38.Caption := ip;
   slabel58.Caption := Port;

end;

но в лабелы ничего не записывается .....я делаю чекер однокл и для него нужны прокси и вот так я их беру ......может что то не правельно делаю ?

P.S забыл написать
в форм креате :

Proxy:=Tstringlist.create;
  Proxy := TStringList(sMemo7.Lines);