Определить минимальное число(балл) из списка

@Paskal1 · Регистрация: 22.10.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Такая у меня задачка:На форме стоит ListBox (с вкл multiselect) с индексами типа (12.32.565) каждый индекс отвечает своему баллу (макс балл 5).После того как юзер выбрал нужные индексы должен произойти расчет балла и вывести минимальный балл из того что в списке. (баллы у меня хранятся в тож в ListBox(скрытом) и связаны по индексу выбора типа
ListBox1 ListBox2
12.234.45 2
12.236.45 5
12.254.45 4
12.237.45 5
) ну короче каша и бред получается (
Побывал через функцию min но функция рассчитана только на 2 значения
У меня есть готовое решения но для каждого ListBox писать процедуру геморно и не профессионально.
бред короче получается.
Ребята подскажите плиз как функцию такую написать.

ну вот сам бред

Delphi

//---------------------------------Расчет баллов 3
for icheks3 := 1 to CheckListBox3.Items.Count - 1 do
    if CheckListBox3.Checked[icheks3] then
      begin
    Config.Edit3.Text:=Config.Edit3.Text + '1' + (ListBox5.Items.Strings[icheks3])+ '; ';
    Config.ListBox93.Items.Add(Config.ListBox119.Items.Strings[icheks3]);
   // Label37.Caption:=Config.ListBox55.Items.Strings[icheks3];
    Form3.Repaint;
       end;
    for sch3 := 1 to Config.ListBox93.Count -1 do
    begin
    config.memo5.Lines.Add(Config.ListBox93.Items.Strings[sch3]);
    end;
    vsdf3:=5;
    Config.Memo5.Lines.Add(Config.ListBox93.Items.Strings[0]);
    for scs3 := 0 to Config.Memo5.Lines.Count -1 do
           begin
               vsdf3 := min(StrToInt(Config.Memo5.Lines.Strings[scs3]), vsdf3);
           end;
     StaticText52.Caption:=IntToStr(vsdf3);

@Игорь[Igor] · 08.11.2012, 17:38

TListBox(Sender)
и будет достаточно одной функции

@Paskal1 · 08.11.2012, 19:40 **[ТС]**

Сообщение от Игорь[Igor]

TListBox(Sender)
и будет достаточно одной функции

не понял по конкретней , куда мне sender лепить и что с него брать (я новичек()

@Игорь[Igor] · 08.11.2012, 20:23

Покажи свое готовое решение, или это оно и есть что здесь написано?

@Paskal1 · 09.11.2012, 10:43 **[ТС]**

Сообщение от Игорь[Igor]

Покажи свое готовое решение, или это оно и есть что здесь написано?

Это оно и есть )

Да знаю бред.
Ребята спасибо я уже сделал всем кто откликнулся большое спасибо.
Вопрос закрыт

@Игорь[Igor] 725 / 477 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	08.11.2012, 17:38	2
	TListBox(Sender) и будет достаточно одной функции 1

@Paskal1 9 / 9 / 4 Регистрация: 22.10.2010 Сообщений: 95
	08.11.2012, 19:40 [ТС]	3
	Сообщение от Игорь[Igor] TListBox(Sender) и будет достаточно одной функции не понял по конкретней , куда мне sender лепить и что с него брать (я новичек() 0

@Игорь[Igor] 725 / 477 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	08.11.2012, 20:23	4
	Покажи свое готовое решение, или это оно и есть что здесь написано? 0

@Paskal1 9 / 9 / 4 Регистрация: 22.10.2010 Сообщений: 95
	09.11.2012, 10:43 [ТС]	5
	Сообщение от Игорь[Igor] Покажи свое готовое решение, или это оно и есть что здесь написано? Это оно и есть ) Да знаю бред. Ребята спасибо я уже сделал всем кто откликнулся большое спасибо. Вопрос закрыт 0

Опции темы