Простенькая база данных, Чтение из файла Опции

[Atreides]

Дали задание: создать базу данных автобусного парка. База храниться в текстовом файле. Три колонки: Фамилия, номер маршрута и номер автобуса (в каком компоненте это лучше отобразить?). Нужно сделать, что бы по номеру автобуса можно было задавать параметр в парке или на маршруте (вот, наверное, четвертый столбик в колонке на сделать?), а так же по отдельному запросу выдавать кто на маршруте, а кто в парке.

[Atreides]

Критерий въезда/выезда по номеру автобуса. В 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 - 26.11.2007 20:32