Форум: "Начинающим";
Текущий архив: 2015.09.10;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c
