VPF::Combobox - Форум программистов

dimkaspaun

Дата 26.5.2006, 04:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 24.5.2006
Где: Новосибирск

Репутация: нет
Всего: нет

Помогите как сделать чтобы подсчет строк в Combobox был без пустых и выводился результат Edit только не результат пустых, а не пустых.

Sunvas

Дата 26.5.2006, 07:06 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(dimkaspaun @ 26.5.2006, 04:17

)

только не результат пустых, а не пустых.

Что за бред??

Может так?

Код


combobox1.items.count

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

DimassS

Дата 26.5.2006, 07:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: 1
Всего: 2

Да не очень понятно... smile

может так:
сначала узнаем количество итемов потом запускаем цикл
if combobox1.item[i]<>'' then edit1.text:=edit1.text+combobox1.item[i];

посмотри, а то вопрос непонятен немного... smile

bems

Дата 26.5.2006, 07:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Наверное так:

Код


edit1.text:=0;
for i:=0 to ComboBox1.items.count-1 do
 if ComboBox1.items[i]<>'' then edit1.text:=IntToStr(StrToInt(edit1.text)+1)

Это сообщение отредактировал(а) bems - 26.5.2006, 08:00

--------------------

Обижено школьников: 8

Guedda

Дата 26.5.2006, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Ну... Такое во первых будет выдавать ошибку ;)

Код


edit1.text:=0;

Поэтому лучше завести переменную, и сделать так:

Код


Cnt := 0;
for i:=0 to ComboBox1.items.count-1 do
  if ComboBox1.items[i]<>'' then begin
    Inc(Cnt);
    Edit1.Text := IntToStr(Cnt);
  end;

--------------------

Ll 2

Yanis

Дата 26.5.2006, 09:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Может нужно дождаться ответа автора?

Добавлено @ 09:33
а точнее его пояснений

--------------------

*щёлк*

sexton

Дата 26.5.2006, 17:39 (ссылка)

(нет голосов)

Загрузка ...

sexton=Пономарь (eng)

Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: 1
Всего: 9

Цитата(Guedda @ 26.5.2006, 09:16

)

Cnt := 0;
for i:=0 to ComboBox1.items.count-1 do
  if ComboBox1.items[i]<>'' then begin
    Inc(Cnt);
    Edit1.Text := IntToStr(Cnt);
  end;

Guedda, а нафига постойнно счетчик в Edit валить? Имхо логичней так:

Код


Cnt := 0;
for i:=0 to ComboBox1.items.count-1 do
  if ComboBox1.items[i]<>'' then
    Inc(Cnt);
Edit1.Text := IntToStr(Cnt);

--------------------

Поставить +

ЖЖ
Рассылка Рассылок

bems

Дата 26.5.2006, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(Guedda @ 26.5.2006, 09:16

)

Ну... Такое во первых будет выдавать ошибку ;)

Сори, edit1.text:='0'

Цитата(Guedda @ 26.5.2006, 09:16

)

Поэтому лучше завести переменную

Суть та же. Да, лучше поменять переменную, чем свойство. Я этим постом хотел вызвать реакцию автора на правильность/неправильность результата. НЕВЫШЛО smile

Это сообщение отредактировал(а) bems - 26.5.2006, 17:52

--------------------

Обижено школьников: 8

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »