Цикл выполнение memo по строкам?

Question

[libera]

for rt := 0 to mmo1.Lines.Count-1 do
         copy:=mmo1.Lines.Strings[rt];
     idhtp1.ProxyParams.ProxyServer:=Copy(proxy,1 ,Pos(':',proxy)-1);
     idhtp1.ProxyParams.ProxyPort:=StrToInt(Copy(proxy ,Pos(':',proxy)+1,Length(proxy)));

Не работа.
Он берет только последнию строку.
А мне надо, что бы шел по порядку.

У меня пример 10ш проски, надо использовать, а он берет только последнию.

Answer 1

[kalapanga]

Что написали, то и имеете. В цикле-то только перебор строк. А работа со строкой у Вас идёт уже после цикла.
Вообщем begin end забыли!

Comments

[Алексей С.]

вот что значит к делфи лет 7 не прикасаться )) . вообще не заметил , отступы есть , значит в блоке )))

[Mercury13]

Алексей С.: Что, на «змие-питоне» работаете?

[Алексей С.]

Mercury13: ага =)

[Mercury13]

Я питона не знаю, но и у меня бывает такое. Сажусь на Яву и пишу bool.

Answer 2

[ORTOL]

Знаете, мне очень грустно стало ...
Вот раньше, когда люди хотели чему то научится то они ЗАДАВАЛИ ВОПРОСЫ и получали на них
ответы ... То есть они могли это делать (задавать вопросы) ...

А вот сейчас я замечаю люди разучились УМЕНИЮ задавать вопросы,
уметь выражать/донести свои мысли, так вот эта ситуация плачевная уже ...

И что вообще загоняет в тоску то это то что вы перешагнув этот барьер занимаетесь программированием.

Comments

[rediskus]

Это, к сожалению, последствия современного образования. Мы же тесты пишем, и из 3 вариантов выбираем 1. И так с 1 по 11 классы. Откуда нам взять умение вопросы задавать? Эффективный менеджмент в образовании чО :)

[ORTOL]

rediskus: Ну ... Знаете ... Не совсем могу согласится ... Вы могли бы мне это сказать если бы мы жили в средневековье где источником знаний были учителя и книги ... А сейчас в эпоху интернета можно любую информацию получить было бы желание ...

Answer 3

[rediskus]

Нда...

for rt := 0 to mmo1.Lines.Count-1 do
   BEGIN
      str:=mmo1.Lines[rt]; // это строка
      idhtp1.ProxyParams.ProxyServer:=Copy(str,1 ,Pos(':',str)-1);
      idhtp1.ProxyParams.ProxyPort:=StrToInt(Copy(str ,Pos(':',str)+1,Length(str)));
   END;

уЖос нах...

Answer 4

[Алексей С.]

внимательно просмотрите 2ю и (3,4) строки

Answer 5

[libera]

Если ты имешь веду, то copy то там proxy прописано. Но все равно не работает.