| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Призеры [Delphi, Windows]

Leo^Sun ©   (2002-06-02 22:30:00) 

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

---

Daddy   (2002-06-03 19:30:00) [1]

ЭЭЭЭЭ.
Список = record
Номер: byte;
Имя: string;
Очки: longint;
end;
var
Призеры: array[1..10] of список;
max:=longint

Ну а далее сортируй как хочешь, ну типа в цикле:

If Список.Очки[n]+1<Список.Очки[n] then Max:=Список.Очки[n]

Вотъ

---

Наверх