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
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
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;
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]);