копирование с memo

[stasa9711]

всем привет ) этот вопрос связан с предыдушим с которым мне помогли справиться добрые спецы этого форума ) и так перейду к делу .... сначала я с сайта в мемо копирую содержимое (прокси) делаю так

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

после чего мне нужно скопировать с мемо ип и порт ( главное надо всем так прокси делать ) делаю так

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

а в форм креате следующий код

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

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

на другом форуме мне подсказали что в форм креате надо написать так :

Proxy.AddStrings(sMemo7.Lines);

но так дает вот такую ошибку

[Lardes]

IP:= Copy(Proxy.Strings[CurAcc],1,Pos(':',Proxy.Strings[CurAcc])-1); //Копируем прокси
Port:= Copy(Proxy.Strings[CurAcc],Pos(':',Proxy.Strings[CurAcc])+1,Length(Proxy.Strings[CurAcc])); //Копируем порт

Копирование с мемо:
либо как Вам подсказали на другом форуме, либо

  Proxy.Text := sMemo7.Lines.Text;

[Аватар]

В CurAcc должен быть помещен индекс строки стринглиста с которой берете данные. По-моему уже раза четыре об этом говорили вам

[stasa9711]

Lardes , спасибо но не помогло .... если использовать все вместе

 Proxy.Text := sMemo7.Lines.Text; + 
IP:= Copy(Proxy.Strings[CurAcc],1,Pos(':',Proxy.Strings[CurAcc])-1); //Копируем прокси
Port:=Copy(Proxy.Strings[CurAcc],Pos(':',Proxy.Strings[CurAcc])+1,Length(Proxy.Strings[CurAcc])); //Копируем порт

то дает ту же ошибку ... а по одиночке ничего не записывает в мемо .....

Аватар, как мне туда записать индекс строки ? я же написал переменную CurAcc при копировании так она и должна записывать

IP:= Copy(Proxy[CurAcc],1,Pos(':',Proxy[CurAcc])-1);

[Аватар]

Доступ к значению свойства Proxy.Strings осуществляется по индексу, как к массиву символьных строк. К-во этих строк можно узнать в Proxy.Count. Поскольку нумерация индекса начинается с 0, то возможные значения CurAcc лежат в интервале от 0 до Proxy.Count-1. Вы обращаетесь к элементу Proxy.Strings не инициализировав CurAcc и там лежит фиг знает какое значение, вот и вылетает прога. А какое там должно быть значение вам видней, мне откуда знать какую строку вы собираетесь парсить?

[stasa9711]

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

[Аватар]

Тогда в цикле CurAcc от 0 до Proxy.Count-1
И slabel38 и slabel58 не при делах

[stasa9711]

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

for CurAcc :=0  to proxy.Count -1  do begin 
и тут дальше идет копирование

если что прошу поправить .....

сделал так :

var
 IP,Port:string;
 CurAcc : integer;
begin
 for CurAcc :=0  to Proxy.Count -1  do 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;

при этом если в форм креате стоит 

Proxy.Text := sMemo7.Lines.Text; то лабелы не изменяются так и стоят , а если в форм креате стоит 
 Proxy := TStringList(sMemo7.Lines); то лабелы становятся пустыми .... но так или так все равно не копируются

[Lardes]

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

.... если использовать все вместе

 Proxy.Text := sMemo7.Lines.Text; + 
IP:= Copy(Proxy.Strings[CurAcc],1,Pos(':',Proxy.Strings[CurAcc])-1); //Копируем прокси
Port:=Copy(Proxy.Strings[CurAcc],Pos(':',Proxy.Strings[CurAcc])+1,Length(Proxy.Strings[CurAcc])); //Копируем порт

то дает ту же ошибку ... а по одиночке ничего не записывает в мемо .....

Что использовать? все вместе? Для чего? по одиночке? Зачем? О чем Вы вообще?

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

Proxy.Text := sMemo7.Lines.Text; то лабелы не изменяются так и стоят , а если в форм креате стоит Proxy := TStringList(sMemo7.Lines); то лабелы становятся пустыми .... но так или так все равно не копируются

Для чего Вы это написали и чего ждете?

[stasa9711]

я жду что в лабелы скопируются прокси из мемо7