Запись, чтение в типизированный файл.

[Dennis777]

Подскажите, как правильно организовать запись и чтение в типизированный файл?
Необходимо сохранить штук 30 переменных перед закрытием формы, и соотвественно при создании - прочитать. Все - типа интеджер. Нашел такой пример:

type
  TRec=record
    value1:integer;
    value2:integer;
    value3:integer;
    value4:integer;
    value5:integer;
    value6:integer;
    value7:integer;
    value8:integer;
    end;
procedure write;
var
Rec:TRec;
F:File of TRec;
begin
AssignFile(F,'test.dat');
  Rewrite(F);
  Rec.value1:=grammar2a;
  Seek(F,0);
  Write(F,Rec);
  CloseFile(F);
end;

Но на строке Write(F,Rec); - выскакивает ошибка с указанием, что слишком много актуальных параметров (too many actual parametrs)
Что я делаю не так? Как можно исправить?)

[Dennis777]

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

[саша40]

Во первых, нужен тут TextFile
Во вторых, функция inttostr или просто file of Integer для записи чисел.

[Serge_Bliznykov]

Денис, никогда не недо переопределять системные функции. (или уж делайте это осознанно, по крайне мере!!

procedure write;
var
Rec:TRec;
F:File of TRec;
begin
AssignFile(F,'test.dat');
  Rewrite(F);
  Rec.value1:=grammar2a;
  Seek(F,0);  
  Write(F,Rec);

Вы зачем свою процедуру назвали write?!
чтобы потом, когда напишете вызов Write(F, Rec); компилятор не понял, какую из этих процедур (вашу или системную) Вы хотите вызвать?!
Переменуйте свою, в например, WriteMySetting и всё заработает!

Сообщение от саша40

Во первых, нужен тут TextFile

Саша, Вы опять в своём репертуаре?! При чём здесь ТЕКСТОВЫЙ файл, если автор темы спрашивает о использовании ТИПИЗИРОВАННОГО файла?!

[Dennis777]

Саша, спасибо большое!) Я и не обратил внимания =) В 2 часа ночи мозг не работает)

Название исправил, но теперь выскакивает:

[DCC Error] Unit2.pas(115): E2065 Unsatisfied forward or external declaration: 'TForm2.writerez'

[Serge_Bliznykov]

Dennis777, Вы сейчас с Сашей40 общаетесь?..

DCC Error] Unit2.pas(115): E2065 Unsatisfied forward or external declaration: 'TForm2.writerez'

покажите исправленный код!

[Stilet]

Название исправил

Полный код в студию.

[Dennis777]

   type
   TRec=record
   value1:integer;
   value2:integer;
   value3:integer;
   value4:integer;
   value5:integer;
   value6:integer;
   value7:integer;
   end;

var
Rec:TRec;
Rec1:Trec;
F:File of TRec;

procedure TForm2.writeRez;
begin
AssignFile(F,'test.dat');
  Rewrite(F);
  Rec.value1:=pazzle2;
  Rec.value2:=grammar2a;
  Rec.value3:=grammar2b;
  Rec.value4:=grammar2c;
  Rec.value5:=vocabulary2a;
  Rec.value6:=vocabulary2b;
  Rec.value7:=vocabulary2c ;
  Seek(F,0);
  Write(F,Rec);
  CloseFile(F);
end;

procedure TForm2.readRez;
begin
AssignFile(F,'test.dat');
  Reset(F);
  Seek(F,0);
  read(F,Rec1);
  Rec1.value1:=pazzle2;
  Rec1.value2:=grammar2a;
  Rec1.value3:=grammar2b;
  Rec1.value4:=grammar2c;
  Rec1.value5:=vocabulary2a;
  Rec1.value6:=vocabulary2b;
  Rec1.value7:=vocabulary2c ;
  CloseFile(F);
end;

Ошибка уже не выскакивает, но все равно, что то не то. В он криэйт выполняю ридрез, в он клоз - врайт рез, но как-то оно не считывается((

[Serge_Bliznykov]

т.е. по вашему, что чтение, что запись - менять нужно поля записи, да? ;(
пробуйте так:

procedure TForm2.readRez;
begin
  AssignFile(F,'test.dat');
  Reset(F);
  read(F,Rec1);
  pazzle2   := Rec1.value1;
  grammar2a := Rec1.value2;
  grammar2b := Rec1.value3;
  grammar2c := Rec1.value4;
  vocabulary2a := Rec1.value5;
  vocabulary2b := Rec1.value6;
  vocabulary2c := Rec1.value7;
  CloseFile(F);
end;

p.s. надеюсь, что после readRez переменные pazzle2, grammar2a и т.д. ещё раз не переопределяются и где-то используются! Иначе и предложенный мною код тогда смысла никакого не имеет, если Вы не используете значения этих переменных...

[Dennis777]

Вот я лопух) Спасибо огромное!)