ComboBox + zapis liniowy

0

Witam,

 W ComoBox mam kilka wpisów. W jaki sposób zapisać je np do Label w postaci np: test1, test2, test3 (oddzielone przecinkami) a następnie zapisać do innego ComboBox.

Z góry dzięki za pomoc

Janek

0

Zapis do TLabel:

var
  i: integer;
begin
  for i := 0 to ComboBox1.Items.Count -1 do
    Label1.Caption := labeL1.Caption + ComboBox1.Items.Strings[i] + ',';
end;
0

Albo:

Label.Caption := StringReplace(Combobox.Items.Text, #13#10, ', ', [rfReplaceAll]);

Tylko, że umieszcza też przecinek na końcu :-/
Zapisać do innego ComboBox?

ComboBox1.Items := ComboBox2.Items;

Chyba, że z labela:

ComboBox.Items.Text := StringReplace(Label.Caption, ', ', #13#10, [rfReplaceAll]);

1 użytkowników online, w tym zalogowanych: 0, gości: 1