0
procedure TForm1.Button2Click(Sender: TObject);
begin
  chikl := strtoint(edit1.Text);

  for i := 0 to ListBox1.Items.Count - 1 do
    Memo1.Lines.Add(ListBox1.Items[i]);

  for li := 1 to chikl do
    memo2.Lines.Add('send_photo_file(chat_id,' + memo1.Lines.Text + ')');

  memo2.Lines.SaveToFile('Mail.txt');
end;

почему то вместо одной строчки из мемо1 он добавляет все разом

1

1 ответ 1

2

Вместо memo1.lines.text используйте memo1.lines[] с соответствующим индексом.

Вот только есть сомнения, как соотносится chikl с реальным количеством строк в меме

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.