[pikabu]

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

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

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

[Kailon]

Код:

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;