|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
26.02.2014, 02:16 | #1 (permalink) | |
Новичок
Регистрация: 26.02.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Очень важно решение в Делфи
вот условие: Цитата:
|
|
26.02.2014, 02:16 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Моя задача - облегчить вам поиск схожих постов Очень очень нужна помощь, прямо сейчас Подскажите, пожалуйста, как узнать IP по странице ВКонтакте? Очень важно! Важно! Обновление, баги. Помогите решить задачу, желательно basic, хотя это не важно |
26.02.2014, 05:35 | #2 (permalink) |
Member
Регистрация: 07.08.2012
Адрес: Находка, Приморский край
Сообщений: 336
Сказал(а) спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1671
|
Используем TStringGrid. В него заносим по столбцам Фамилию, баллы за 1 вид, баллы за 2 вид и т.д.
Далее спокойненько пробегаем по гриду до конца: суммируем баллы первого спортсмена, затем - второго и сравниваем. Если у второго сумма больше, его индекс запоминаем и сравниваем второго с третьим, четвертым и т.д. Если же сумма баллов у первого спортсмена больше, чем у второго - запоминаем индекс (номер строки) первого и сравниваем его с третьим. И так до конца грида. |
26.02.2014, 15:28 | #4 (permalink) |
Member
Регистрация: 07.08.2012
Адрес: Находка, Приморский край
Сообщений: 336
Сказал(а) спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1671
|
Можно будет завтра, сейчас у меня уже 21:29. Только опиши условия поподробнее.
Я так понимаю, имеем форму, в которой вводим нужные данные и нажимаем кнопку "Рассчитать" и получаем результат. Так? Или данные берутся из файла, или еще как? Утром (своим, московия+7) напишу |
27.02.2014, 00:33 | #5 (permalink) | |
Новичок
Регистрация: 26.02.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.02.2014, 10:05 | #6 (permalink) |
Member
Регистрация: 07.08.2012
Адрес: Находка, Приморский край
Сообщений: 336
Сказал(а) спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1671
|
Так... Вот решение, написано на Delphi XE5. Текстовый файл (Results.txt) в комплекте. Я в него вписал 6 строчек всего, формат: Фамилия 1_вид 2_вид 3_вид 4_вид 5_вид, разделители - пробелы.
Сначала файл считывается в StringGrid, который на форме (кол-во строк в нем изменяется динамически, т.е. в файле записей может быть и 3 и 100500). Ну а дальше уже простейший подсчет. Если что-то сделать по-другому, пиши. Исходник с комментариями |
27.02.2014, 10:25 | #7 (permalink) |
Member
Регистрация: 07.08.2012
Адрес: Находка, Приморский край
Сообщений: 336
Сказал(а) спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1671
|
Вдогонку: порядковый номер-то я в StringGrid засунул, а вот записывать его - забыл.
Добавь между begin if sg.RowCount<Ind+1 then sg.RowCount:=Ind+1; sg.Cells[Sum,Ind]:=Copy(s,1,Pos(' ',s)-1);//Данные Delete(s,1,Pos(' ',s));//Удаляем данные end; и sg.Cells[6,Ind]:=s; end; строку sg.Cells[0,Ind]:=IntToStr(Ind); Т.е., этот кусок будет так: begin if sg.RowCount<Ind+1 then sg.RowCount:=Ind+1; sg.Cells[Sum,Ind]:=Copy(s,1,Pos(' ',s)-1);//Данные Delete(s,1,Pos(' ',s));//Удаляем данные end; sg.Cells[0,Ind]:=IntToStr(Ind); sg.Cells[6,Ind]:=s; end; |
27.02.2014, 13:28 | #8 (permalink) | |
Новичок
Регистрация: 26.02.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
27.02.2014, 14:49 | #9 (permalink) |
Member
Регистрация: 07.08.2012
Адрес: Находка, Приморский край
Сообщений: 336
Сказал(а) спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1671
|
Будет. В юните убери в секции uses начало System.
Морда формы - открой unit1 в блокноте. Вообще, сделай новый проект, на форму закинь StringGrid, Label, OpenDialog и Button. Расположение возьми с моего скомпилированного файла (Win32\Release). Названия компонентов возьми из юнита. Навскидку: sg - StringGrid, рядов - 2, столбцов - 7, фиксированны первый ряд и столбец. Кнопка и Label - названия по умолчания, по-моему. OpenDialog - oDialog. В смысле, это названия компонентов Потом тупо скопируй все, что после секции type в Unit своего проекта, и все. ЗЫ: мою скомпилированную прогу запускал? То, что надо? ЗЫЫ: сокращения - это про что? Различие только в секции uses; плюс, там в описание .dfm дополнения добавились. Сам код сработает, изменений в языке нет |
27.02.2014, 14:51 | #10 (permalink) | |
Новичок
Регистрация: 26.02.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|