[pikabu]

Добрый день.
Есть два listbox в каждом есть строки
Нужно в Memo скинуть содержимое строк в одну строку, желательно с разделителем.

Пример
текст1 124
текст2 231
текст3 412

Должно получиться: текст1 124 | текст2 231 | текст3 412

[Kailon]

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var   I: Byte;   Delim: Char; begin   Delim := '|';   Memo1.Clear;   for I := 0 to ListBox1.Count - 1 do     Memo1.Text := Memo1.Text + ListBox1.Items[i] + ' ' + ListBox2.Items[i] + Delim; end;