ComboBox + zapis liniowy

Odpowiedz Nowy wątek
Janek
2003-09-05 08:03
Janek
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

Pozostało 580 znaków

2003-09-05 09:00

Rejestracja: 17 lat temu

Ostatnio: 4 lata temu

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;

Pozostało 580 znaków

2003-09-05 09:27

Rejestracja: 17 lat temu

Ostatnio: 5 lat temu

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

Pozostało 580 znaków

Odpowiedz

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