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]

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

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

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