Loop memo line by line?

Question

Delphi

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

Not work.
It only takes the last line.
And I need to go in order.
I have an example of a 10th prosk, I need to use it, but it takes only the last one.

Answer 1

What you write is what you have. The loop only loops over the lines. And work with a line at you goes already after a cycle.
In general, they forgot begin end!

Answer 2

You know, I felt very sad ...
Before, when people wanted to learn something, they ASKED QUESTIONS and received
answers to them ... That is, they could do it (ask questions) ...
But now I notice people have forgotten how THE ABILITY to ask questions,
to be able to express / convey their thoughts, and so this situation is deplorable already ...
And what generally drives you into depression is that you, having stepped over this barrier, are engaged in programming.

Answer 3

Yeah...

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;

ugh nah...

Answer 4

carefully review the 2nd and (3,4) lines

Answer 5

If you have a lead, then copy then the proxy is registered there. But still doesn't work.