Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.07.2013, 22:28   #1
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
Вопрос "CheckListBox" Добавление в Items

Доброе время суток!
Прошу помочь в ситуёвенки:
CheckListBox выводятся имена, если CheckListBox= Check дописывается к имени ' "Оплачено"'. Но там такая лабуда происходит что и не опишу))
Постоянно приписывается ещё одно или несколько ' "Оплачено"' )))
Вот как я пытался:
Код:
procedure TForm1.ListBoxChecked;
var
i:Integer;
Str: string;
ini: TIniFile;
ichec:Integer;
begin
for i:=0 to CheckListBox1.Items.Count-1 do    { Запускается цикл}
if CheckListBox1.Checked[i]=true then
begin
if copy(CheckListBox1.Items.Strings[i],Length(CheckListBox1.Items.Strings[i])-12,12)=' "Оплачено"'then
else
CheckListBox1.Items.Strings[i]:= CheckListBox1.Items.Strings[i]+' "Оплачено"'
end
else
if CheckListBox1.Checked[i]=false then
begin
Str:= CheckListBox1.Items.Strings[i];
Delete(Str,Pos('"',Str),Length(Str));
CheckListBox1.Items.Strings[i]:=Str;
 end;
где то 121 попытка добиться результата)))
Заранее благодарен!
С уважением,
Volkogriz!
Не количеством плюсов измеряется репутация человека...!

Последний раз редактировалось Stilet; 15.07.2013 в 23:12.
Volkogriz вне форума Ответить с цитированием
Старый 15.07.2013, 23:20   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
begin
with CheckListBox1 do begin
 for i:=0 to Items.Count-1 do   
  if Checked[i] and (pos(' "Оплачено"',Items[i])=0) then  Items[i]:= Items[i]+' "Оплачено"'
  else  if not Checked[i] then Items[i]:=StringReplace(Items[i],' "Оплачено"','',[])
end; end;
Подходит?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.07.2013, 23:59   #3
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Спасибо Stilet !
Да!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 16.07.2013, 07:59   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Пожалуйста )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать класс "Фигура", от него наследованием создать 3 класса ("треугольник", "четырехугольник", "окружность") funnyy Помощь студентам 3 17.10.2012 17:40
Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п. воваава Помощь студентам 3 01.12.2011 12:50
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04