@libera

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

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ш проски, надо использовать, а он берет только последнию.
  • Вопрос задан
  • 594 просмотра
Пригласить эксперта
Ответы на вопрос 5
@kalapanga
Что написали, то и имеете. В цикле-то только перебор строк. А работа со строкой у Вас идёт уже после цикла.
Вообщем begin end забыли!
Ответ написан
ORTOL
@ORTOL
Delphi
Знаете, мне очень грустно стало ...
Вот раньше, когда люди хотели чему то научится то они ЗАДАВАЛИ ВОПРОСЫ и получали на них
ответы ... То есть они могли это делать (задавать вопросы) ...

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

И что вообще загоняет в тоску то это то что вы перешагнув этот барьер занимаетесь программированием.
Ответ написан
@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;

уЖос нах...
Ответ написан
Комментировать
Winsik
@Winsik
сис.админ, недопрограммист :)
внимательно просмотрите 2ю и (3,4) строки
Ответ написан
Комментировать
@libera Автор вопроса
Если ты имешь веду, то copy то там proxy прописано. Но все равно не работает.
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы