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

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

CheckListBox для тех кто в танке [D7, 2000]


Officeman ©   (2007-04-07 14:10:00) 

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

пишу  

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

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

'Мама мыла раму'


Gydvin   (2007-04-08 07:11:00) [1]

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


Officeman   (2007-04-07 14:41:00) [2]

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


Officeman   (2007-04-07 14:36:00) [3]

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

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. один элемент удаляет. а несколько не хочет


Johnmen   (2007-04-07 14:14:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо