Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 1 322

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Как перемножить строки компонента listbox? (каждый раз в Listbox появляется разное количество строк)
Я написал свой вариант, неправильно получается

Приложение:
  1. procedure TForm1.Button3Click(Sender: TObject);
  2. var c,res,res2:integer;
  3. begin
  4. c:=1;
  5. res:=listbox2.ItemIndex*c;
  6. listbox2.Items.add(inttostr(res));
  7. end;


Сергей-1388 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Сергей-1388 (статус: Посетитель)
Вопрос отправлен: 6 февраля 2008, 18:04
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Не знаю, как понять до конца, что тебе нужно, но я попробую интерпретировать так, как я это представляю, хотя не могу предположить, какой практический смысл содержится в решении этой задачи.

// Перемножение содержимого ListBox
// Допустим, что в ListBox находятся N строк, каждая из которых
// может быть преобразована в тип Integer с помощью функции StrToInt().
// Тогда:
 
var
  Index, Mul: Integer;
begin
  Mul:= 1; // Начальное произведение
 
  for Index:= 0 to ListBox.Items.Count - 1 do
    Mul:= Mul * StrToInt(ListBox.Items[Index]);
 
  ShowMessage('Произведение = ' + IntToStr(Mul));
end;

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 7 февраля 2008, 08:35


Мини-форум вопроса

Всего сообщений: 5; последнее сообщение — 6 февраля 2008, 19:32; участников в обсуждении: 2.
Dron

Dron (статус: Студент), 6 февраля 2008, 18:27 [#1]:

Что вы имеете ввиду под перемножением? Новый список, где каждой строке листа А соответствуют все строки листа Б?
С уважением.
Сергей-1388

Сергей-1388 (статус: Посетитель), 6 февраля 2008, 18:38 [#2]:

ну вот появились в Listbox2 в столбик числа, над опроизведение их узнать и все
Вот на скрине форма
http://slil.ru/25444808
Dron

Dron (статус: Студент), 6 февраля 2008, 19:07 [#3]:

Забавно. А что делает тот код, который вы привели в своём вопросе? Умножает номер выделенной строки на 1 - это что, результат?
С уважением.
Сергей-1388

Сергей-1388 (статус: Посетитель), 6 февраля 2008, 19:17 [#4]:

Ну там сначала на один умножается, потом на другие строки должен результат умножаться, получается что строки перемножатся, а они бесконечно перемножаютсЯ, надо остановить
Dron

Dron (статус: Студент), 6 февраля 2008, 19:32 [#5]:

1) Причём здесь номер выделенной строки?
2) Как вы хотите одной строкой кода перемножить сразу все значения?!

Алгоритм: цикл по всем строкам, каждый раз умножая на число из текущей строки.
С уважением.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 19 августа 2017, 21:51
Выполнено за 0.03 сек.
Рейтинг@Mail.ru