| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ComboBox

alexdn ©   (2014-03-21 03:46:00) 

Можно ли задать записи ComboBox кодом, т.е. есть ComboBox с записями
пластик
панели мдф
дерев вагонка
Как это будет? -
ComboBox1.items:='пластик#13панели мдф#13дерев вагонка';?

---

icWasya   (2014-03-21 11:28:00) [1]

procedure TStrings.SetTextStr(const Value: string);
var
 P, Start: PChar;
 S: string;
begin
 BeginUpdate;
 try
   Clear;
   P := Pointer(Value);
   if P <> nil then
     while P^ <> #0 do
     begin
       Start := P;
       while not (P^ in [ #0, #10, #13]) do Inc(P);
       SetString(S, Start, P - Start);
       Add(S);
       if P^ = #13 then Inc(P);
       if P^ = #10 then Inc(P);
     end;
 finally
   EndUpdate;
 end;
end;

---

brother   (2014-03-21 09:36:00) [2]

а там не #13#10 ?

---

icWasya   (2014-03-21 09:28:00) [3]

А если хочется в одну строку то
ComboBox1.Items.Text:='пластик'#13'панели мдф'#13'дерево вагонка';И обратите внимание на кавычки.

---

ixen   (2014-03-21 07:10:00) [4]

Combobox1.Items.Append('пластик');
Combobox1.Items.Append('панели мдф');
Combobox1.Items.Append('дерев вагонка');

---

alexdn   (2014-03-21 04:00:00) [5]

Написал по простому -
ComboBox1.Items[0]:='пластик';
ComboBox1.Items[1]:='панели мдф';
ComboBox1.Items[2]:='дерев вагонка';

---

Наверх