![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() В текстовом файле хранятся данные об успехах различных стран на Олимпийских играх: название страны, количество золотых , серебряных и бронзовых медалей.Нужно вывести данные на форму в таблицу.Программа должна вычислить общее кол-во медалей для каждой страны, и соответствующее число баллов , которые начисляются по принципу золотая - 7 , серебряная - 6 , бронзовая 5 .Отобразить в таблице общее число медалей и общее кол-во очков.
=== Проблема в том,что даже не знаю с чего начать, как выводить из файла в таблицу, и собственно вообще как с таблицами и файлами работать.Большая просьба написать по возможности код и кинуть ссылку где можно на эти темы почитать...Спасибо заранее |
#2
|
||||
|
||||
![]() было бы более грамотно сделать базу с данными о странах и медалях. Если делать базой то 15 минут работы
|
#3
|
|||
|
|||
![]() а как делать базой?) дело в том,что в делфи я ппц как мало понимаю
|
#4
|
|||
|
|||
![]() http://www.intuit.ru/department/se/dbpdelphi/ Это про БД, то что писал toNN
Таблица в вашем случае это например TComboBox . Я бы писал не текстовым файлом, а типизированным определить запись вида: Код:
strana=record name:string[255]; zoloto:integer; serebro:integer; bronza:integer; end; в блоке var объявите переменную f:file of Strana; Код:
if fileExists(name_file) then//проверяем существование файла с //его имя передаем как строку begin AssignFile(f,name_file);//указываем что файловая переменная связана с //файлом name_file ....//пишем код работающий с файлом end Код:
Reset(f);//открываем файл while not eoF(f) do begin seek(f,i);//определяем номер записи которую читаем read(f,Mystrana);//читаем данные в переменную I:=i+1;//увеличиваем счетчик указывающий номер записи end; Код:
Reset(f);//открываем файл while not eoF(f) do begin seek(f,i);//определяем номер записи которую читаем write(f,Mystrana);//читаем данные в переменную I:=i+1;//увеличиваем счетчик указывающий номер записи end; Код:
Mystrana.name Mystrana.zoloto |
#5
|
|||
|
|||
![]() Вот тут пример меню на основе выпадающего списка+файлы http://delphi-manual.ru/lesson7.php
И еще хорошая статья про типиз. файлы: http://www.delphikingdom.com/asp/vie...?catalogid=843 |
#6
|
|||
|
|||
![]() Прост блин сказано что надо именно текст файлы и таблицу
|