Перенос значений из ListBox в Memo через разделитель

[artemavd]

Добрый вечер! Нужна помощь с одним вопросиком. Нужно значения из ListBox перенести в Memo и разделить их ",". Нужно, чтобы после последнего значения, внесенного в Мемо, не было в конце запятой. Мои наброски:

procedure TForm1.btn6Click(Sender: TObject);
var
 i: integer;
 l: TStringList;
begin
 i:=0;
 for i := 0 to Form1.sListBox12.Items.Count - 1 do
 begin
  l:=TStringList.Create;
  l.Delimiter:=',';
  l.Add(Form1.sListBox12.Items[i]);
  l.SaveToFile('test.txt');
  l.Free;
  Form1.sMemo6.Lines.LoadFromFile('test.txt');
 end;
end;

Не работает. Заносит в мето только последнее значение. Подскажите как надо правильнее записать? Заранее спасибо за помощь.

[Johnson]

procedure TForm1.btn6Click(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to Form1.sListBox12.Items.Count-1 do begin
	Form1.sMemo6.Text:=Form1.sMemo6.Text + Form1.sListBox12.Items[I].Caption;
	if I < Form1.sListBox12.Items.Count-1 then Form1.sMemo6.Text:=Form1.sMemo6.Text + ',';
 end;
end;

[SERG1980]

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

Добрый вечер! Нужна помощь с одним вопросиком. Нужно значения из ListBox перенести в Memo и разделить их ",". Нужно, чтобы после последнего значения, внесенного в Мемо, не было в конце запятой. Мои наброски:

procedure TForm1.btn6Click(Sender: TObject);
var
 i: integer;
 l: TStringList;
begin
 i:=0;
 for i := 0 to Form1.sListBox12.Items.Count - 1 do
 begin
  l:=TStringList.Create;
  l.Delimiter:=',';
  l.Add(Form1.sListBox12.Items[i]);
  l.SaveToFile('test.txt');
  l.Free;
  Form1.sMemo6.Lines.LoadFromFile('test.txt');
 end;
end;

Не работает. Заносит в мето только последнее значение. Подскажите как надо правильнее записать? Заранее спасибо за помощь.

Это потому что вы в цикл занесли эти строки

 l:=TStringList.Create;
  l.Delimiter:=',';
.......
 l.SaveToFile('test.txt');
  l.Free;

Попробуйте так

procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
    del:char;
    i:integer;
begin
 del:=',';
 sl:=TStringList.Create;
 sl.Delimiter:=del;
 sl.Assign(ListBox1.Items);
 sl.DelimitedText:=sl.Text;
 memo1.Lines.Assign(sl);
 FreeAndNil(sl);
 for I := 0 to memo1.Lines.Count-2 do memo1.Lines[i]:=memo1.Lines[i]+',';
end;

[phomm]

Эээм, а что записывать в файл в цикле это так и задумано, создавать стринглист в цикле, это тоже занятно.

procedure TForm1.btn6Click(Sender: TObject);
var
 i: integer;
 l: TStringList;
begin
  L:=TStringList.Create;
  L.Delimiter:=',';
  for i := 0 to Form1.sListBox12.Items.Count - 1 do
    L.Add(Form1.sListBox12.Items[i]);
  Form1.sMemo6.Text := L.Text;
  L.Free;
end;

[artemavd]

Всем спасибо за помощь . Попробовал разные варианты, помогло в решении проблемы.