VPF::Таблица не получается - Форум программистов

COOLJohn

Дата 12.1.2006, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет

Написал прогу чтобы она построила таблицу,записавала её в файл, далее её читала, вывела таблицу на экран.
Скажите, пожалуйста, что я сделал не так:

Код



program table;
type
mytable = record
field1,
field2: string;
end;
myarr = array [1..10] of mytable;
var
File: file of mytable;
myarr1: myarr;
i: integer;
begin
writeln(file, myarr1[i]);
while not eof(Yo) do
begin
readln(File, myarr1[i]);
inc(i);
end;
writeln(myarr[i].field1);
end.

Может быть ошибка в расширение файла (у меня *.txt).
Или в строчке myarr = array [1..10] of mytable.

Это сообщение отредактировал(а) sergej.z - 15.1.2006, 11:48

Zero

Дата 12.1.2006, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(COOLJohn @ 12.1.2006, 17:20

)

Скажите, пожалуйста, что я сделал не так:

Короче ошибка, это весь твой код... Я "немного" подправил

Код


program table;
const
  N=10;
  Path = 'c:\table.txt';
type
 mytable = record
  field1,
  field2: string;
 end;
 myarr = array [1..N] of mytable;
var
  f: text;
  myarr1: myarr;
  i: integer;
  buf:string;
begin

  {Построение таблицы}
  for i:=1 to N do
    begin
      write('введите ячкйку 1-го столба и ',i,'-ой строки> ');
      readln(myarr1[i].field1);
      write('введите ячкйку 2-го столба и ',i,'-ой строки> ');
      readln(myarr1[i].field2);
    end;

  {Запись её в файл}
  assign(f,Path);
  rewrite(f);
  for i:=1 to N do
    begin
      writeln(f,myarr1[i].field1);
      writeln(f,myarr1[i].field2);
    end;
  close(f);

  {Вывод "табилицы" на экран}
  assign(f,Path);
  reset(f);
  while not eof(f) do
    begin
      readln(f,buf);
      write('строка1> ',buf);
      readln(f,buf);
      writeln(' строка2> ',buf);
    end;
end.

А создания стенок таблицы, есть в предыдущей твоей теме, т.е. в прикреплённом файле я показывал пример.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »