Простенькая база данных, Чтение из файла |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Простенькая база данных, Чтение из файла |
Atreides |
Сообщение
#1
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Дали задание: создать базу данных автобусного парка. База храниться в текстовом файле. Три колонки: Фамилия, номер маршрута и номер автобуса (в каком компоненте это лучше отобразить?). Нужно сделать, что бы по номеру автобуса можно было задавать параметр в парке или на маршруте (вот, наверное, четвертый столбик в колонке на сделать?), а так же по отдельному запросу выдавать кто на маршруте, а кто в парке.
-------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
Atreides |
Сообщение
#2
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Критерий въезда/выезда по номеру автобуса. В StringGrid или ListBox поиск вести можно? Что удобней использовать для поиска текстовый файл или таблицы? Вот я прочел текстовый файл, но только через Memo, а там криво всё читается. Как сделать, что бы ровно распределилось?
Код procedure TForm1.Button6Click(Sender: TObject); var f:TextFile; fName:String[80]; buf:String[80]; begin fName:=Edit1.Text; AssignFile(f,fName); try Reset(f); except on EInOutError do begin ShowMessage('Îøèáêà '+fName); exit; end; end; while not EOF(f) do begin readln(f,buf); Memo1.Lines.Add(buf); end; CloseFile(f); end; Сообщение отредактировано: Atreides - -------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
Текстовая версия | 20.04.2024 0:27 |