Информационное табло по баскетболу, Создание базы данных Опции

[LOVE133]

Финальным аккордом стала такая задача.Необходимо создать табло, которое выдавало бы данные о команде, игроке, времени попадания и очках за мяч. Ввод данных у меня получается, оформление диалогового режима в виде меню тоже, а как информацию из файла в виде таблицы на экран или на принтер вывести - вот тут -то и возникли трудности. Вот что получилось . Там есть программки, для добавления в файл, для просмотра, только что-то на работает.... Может , подскажете, что именно.


Не стоит постить с вои задания в FAQ

Сообщение отредактировано: klem4 - 12.12.2005 9:31

[volvo]

Там есть программки, для добавления в файл, для просмотра, только что-то на работает...

Если ты имеешь в виду, что при выборе пункта меню 'просмотр' ничего не отображается на экране, то это само собой... Ты же пишешь информацию в файл...

Кроме этого, происходит путаница в следующем: Когда ты сохраняешь информацию об игроках (процедура Save), расширение .DAT автоматически НЕ прибавляется к имени файла, а когда пытаешься прочесть (Read_File) - почему-то прибавляется... Просто реши для себя, что в файлах с .DAT будут находиться таблицы, а без .DAT - исходная информация... Поэтому в Read_File строку

assign(f,comname+'.dat');

замени на

assign(f,comname);

Я бы на твоем месте сделал процедуру Print_Table универсальной, так чтобы она могла выводить данные и на экран, и в файл:

procedure print_table(on_screen: boolean; k:integer);
var
  i, j: integer;
  f: text;

begin
  if on_screen then AssignCrt(f)
  else begin
    write('введите имя команды - '); readln(comname);
    assign(f,comname+'.DAT');
  end;
  rewrite(f);

  writeln(f,'таблица по баскетболу');
  writeln(f);
  for i:=1 to k  do
    with comands[i] do begin
      write(f,com,' ');
      write(f,surname:25-length(surname));
      writeln(f,'',time:2:2,'','-',goal);
    end;
  close(f);
  if on_screen then begin
    write('Для продолжения - нажмите Enter...')
    readln;
  end;
end;

теперь для того, чтобы вывести таблицу на экран, достаточно вызвать

print_table(true, k);

, а для вывода в файл -

print_table(false, k);