[LUNATIK125]

Создать файл, содержащий сведения о наличии билетов и рейсах Аэрофлота. Структура записи: номер рейса, пункт назначения, время вылета, время прибытия, количество свободных мест в салоне. Количество записей (2-3). Вывести время отправления самолетов в город X.
помогите реализовать на Delphi !
На паскале сделал вот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98

type  tip1=record        n:byte;                 {номер рейса                        }        town,time0,time1:string;{город, время отправления и прибытия}        freeplace:integer;      {количество свободных мест          }       end;    var d:tip1; i,max_d:integer; f:file of tip1;    {ввод данных и сохранение в файл} PROCEDURE input_d; BEGIN write('Введите количество рейсов: '); readln(max_d);    writeln; writeln('* * * Заполнение данных о рейсах * * *'); writeln;    {открыть или создать файл} {$I-} assign(f,'data.dat'); reset(f); seek(f,filesize(f)); {$I+} if ioresult<>0 then rewrite(f);    for i:=1 to max_d do  begin   writeln('----- ',i,' -----');   write('Введите номер рейса: ');   readln(d.n);   write('Введите город прибытия: ');   readln(d.town);   write('Введите время отправления: ');   readln(d.time0);   write('Введите время прибытия: ');   readln(d.time1);   write('Введите количество свободных мест: ');   readln(d.freeplace);   write(f,d);  end;    close(f); writeln; writeln('Данные были сохранены в файл!'); readln; END;    {вывод данных из файла по введенному названию города} PROCEDURE view_d; var x:string; tmp_d:tip1; BEGIN {открыть файл для чтения информации} {$I-} assign(f,'data.dat'); reset(f); {$I+} if ioresult<>0 then  begin   writeln('Файл не найден!');   readln;   exit;  end;    write('Введите название города: '); readln(x); writeln;    while not eof(f) do begin  read(f,tmp_d);  if tmp_d.town=x then          {сравнить названия городов}   begin    writeln('Номер рейса: ',tmp_d.n);    writeln('Город: ',tmp_d.town);    writeln('Время отправления: ',tmp_d.time0);    writeln('Время прибытия: ',tmp_d.time1);    writeln('Количество свободных мест: ',tmp_d.freeplace);    writeln('--------------------------------');   end; end;    close(f); writeln('Поиск завершен!'); readln; END;    {***** основная программа *****} BEGIN input_d; view_d; END.

Админ: Пользуемся тегами для оформления кода!