Код:
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;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|