Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.09.10;
Скачать: CL | DM;

Вниз

ComboBox   Найти похожие ветки 

 
alexdn ©   (2014-03-21 03:46) [0]

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


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

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


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

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


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

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


 
brother ©   (2014-03-21 09:36) [4]

а там не #13#10 ?


 
icWasya ©   (2014-03-21 11:28) [5]

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;



Страницы: 1 вся ветка

Текущий архив: 2015.09.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.075 c
2-1397650643
dima4202
2014-04-16 16:17
2015.09.10
Вход на сайт


15-1419024604
Юрий
2014-12-20 00:30
2015.09.10
С днем рождения ! 20 декабря 2014 суббота


15-1415316941
dmk
2014-11-07 02:35
2015.09.10
Еще немного по ассемблеру


11-1217501243
KOLBOSS
2008-07-31 14:47
2015.09.10
EnumAllKeys


4-1273376355
revo
2010-05-09 07:39
2015.09.10
Чтение RS485