[Reglament_]

Hello all!
Нужен код на Delphi!

Код:

//Код отправки сообщения из Memo1 (отправка строки если точнее!)
Component.Send('123.123.123.12', 80, +Memo1.Text);

Но в Memo1 Будут написаны еще несколько строк для оправки сообщения,
и будут они написаны в столбик.
BOT:

PHP код:

commanda#1
commanda#2
.... 


Как сформулировать код, чтобы из Memo1 отправлялись все команды(все строчки), а не только одна!

Код:

//Начало
procedure TForm1.Button1Click(Sender: TObject);
... //какой код!
end;

[angvelem]

Если нужно разом команды отправить, то как и написал, а если последовательно, то в цикле:

Код:

  for I := 0 to Memo1.Count - 1 do
    Component.Send('123.123.123.12', 80, +Memo1.Lines[i]);

[Reglament_]

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

Если нужно разом команды отправить, то как и написал, а если последовательно, то в цикле:

Код:

  for I := 0 to Memo1.Count - 1 do
    Component.Send('123.123.123.12', 80, +Memo1.Lines[i]);

По твоему примеру разобрался!!!
У тебя ошибка!!
Вот так это делается!

Код:

for i:= 0 to Memo1.lines.Count do
Component.Send('123.123.123.12', 80, +Memo1.Lines[i]);

[Amgsys HQ]

Вопрос не в тему: зачем ставить восклицательные в конце повествовательных предложений?

[angvelem]

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

...Вот так это делается!

Код:

for i:= 0 to Memo1.lines.Count do
Component.Send('123.123.123.12', 80, +Memo1.Lines[i]);

Ну тогда срочно учить матчасть. Предположим в Memo 10 записей, в таком случае твой цикл отработает 11 раз.

[Reglament_]

no, 10 = 10
and
С наступающим!

[angvelem]

Тяжело объяснять людям, упёртым в своих заблуждениях. Повторим лекцию. Предположим в Memo 10 записей, тогда последняя запись будет адресоваться как Memo1.Lines[9], так как отсчёт начинается с Memo1.Lines[0]. От 0 до 9 будет 10 записей. Теперь ответьте, что будет, если запросить Memo1.Lines[10] где Memo1.Lines.Count = 10?
И когда приложение "неожиданно" свалится, не удивляйтесь.