Поочерёдная обработка строк в Memo

[Reglament_]

Помогите решить проблемку.

procedure TForm1.Button1Click(Sender: TObject);
var
ip, port, pwd, s:string; //устанавливаем значения
begin
... //копируем из Memo значения ip, port, pwd (в Мемо одна строка)
ip:= ...//
port:= ...//
pwd:= ...//
Component.Send(ip,strtoint(port), commada+pwd); //отправляем запрос
end;

//Но в Memo если будет от 2х строк и более,
как сделать отправку всех строчек поочередно?


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[kettanaito]

for i:=0 to Memo.Lines.Count-1 do 
begin
// получаем значения конкретно для каждой строки
// учитываем индекс данной строки
ip:=...;
port:=...;
pwd:=...; 
Component.Send(ip,strtoint(port), commada+pwd);
end;

Так?

[Reglament_]

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

for i:=0 to Memo.Lines.Count-1 do 
begin
// получаем значения конкретно для каждой строки
// учитываем индекс данной строки
ip:=...;
port:=...;
pwd:=...; 
Component.Send(ip,strtoint(port), commada+pwd);
end;

Так?

Вот и я такдумал, но нет ((
и так пробовал

for i:=0 to Memo.Lines.Count do

Может что-то с i:integer подшаманить

[Человек_Борща]

надо..надо=)

for i:=0 to Memo.Lines.Count -1 do

или так:

for i:=1 to Memo.Lines.Count do

Но первое лучше...

[kettanaito]

Reglament_, отнимай единицу от общего количества строк (массив начинается с нуля, в то время как количество с единицы).

for i:=1 to Memo.Lines.Count do

Так можно, но зачем столько сложностей (например, как получить значение Lines.String[0], если i заведомо равно единице, да ну). Проще, имхо, с нуля.

Вот и я такдумал, но нет ((

Почему нет? Расскажи, что именно не выходит.

[Reglament_]

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

Почему нет? Расскажи, что именно не выходит.

у меня выходит отправка 2 строк как одна, когда в Мемо 2 строки пишешь.
Они складываются и отправляются как одна.

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

Вот, а не то:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:= 0 to Memo2.lines.Count do
Component.Send(ip,port, +Memo2.Lines[i]);
end;
//здесть отправка идет всех строк из Мемо (например 2 строки в мемо)
но тут тоже все строки складываются и отправляется как одна строка