Скачать: CL | DM;

CheckListBox для тех кто в танке   Найти похожие ветки 

← →
Officeman ©   (2007-04-07 14:10) [0]

памагите немогу вылезти из танка)
надо данные CheckListBox в  верхнем регистре   "МАМА МЫЛА РАМУ"

пишу  

  CheckListBox1.Items.Add(string(StrUpper(PChar("Мама мыла раму"))));

Добавляется всё равно так:

"Мама мыла раму"

---

← →
Johnmen ©   (2007-04-07 14:14) [1]

CheckListBox1.Items.Add(AnsiUpperCase("Мама мыла раму"));

---

← →
Officeman ©   (2007-04-07 14:36) [2]

Спасиба!  и ещё один вопросик. куак удалить несколько элементов в цикле
вылетает с ошибкой. в чём прикол?

for n:=0 to LV.items.Count-1 do begin  
 if Trim(LV.items[n].subitems[0])=Trim(p1) then begin
      LV.items[n].Delete;
 end;
end;

ps. один элемент удаляет. а несколько не хочет

---

← →
Officeman ©   (2007-04-07 14:41) [3]

уже сделал. спасиба

---

← →
Gydvin ©   (2007-04-08 07:11) [4]

Лучше
for n:=LV.items.Count-1  downto 0 do begin  

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c