ошибка 105 (при работе с типизированными файлами)

[sdp]

Писал программу, руководствуясь таким примером
http://www.delphikingdom.ru/asp/view...?catalogid=843

if not un_TFile1.CreateDB('\Stud.dbf') then Exit;
      un_TFile1.opendb('\Stud.dbf');
      for i:=0 to 7 do
        begin
          StudEntry.fio:=txt_fio1.Text+' '+txt_fio2.Text+' '+txt_fio3.Text;
          StudEntry.data:=txt_data1.Text+'.'+txt_data2.Text+'.'+txt_data3.Text;
        ..........
          StudEntry.godpost:=txt_godp.Text;
          AddRec(StudEntry);
          Write(StudEntry.fio+' '+StudEntry.data+' '+StudEntry.adres+' '+StudEntry.facult+' '+StudEntry.kafedra+' '+StudEntry.grupa+' '+StudEntry.godpost);
        end; <тут вознкает ошибка, при записи...№105, файл не открыт для записи>
      CloseDB;

Хотя в другом модуле, к которому обращается процедура, в CreateDB:

function OpenDB(const DbName: string): Boolean;
begin
  AssignFile(PersonFile, DbName);
  try
    Reset(PersonFile);            // открываем базу
    StudCount := FileSize(PersonFile); // текущее кол. записей
    DbOpen := TRUE;               // открытие прошло нормально
  except
    StudCount := 0;
    DbOpen := FALSE;
  end;
  Result := DbOpen;
end;

ну, если что, то вот переменные и тип:

 PersonFile: file of TStudRec; // определили файл нашего типа
  DbOpen: Boolean;               // флаг состояния базы
  StudCount: Integer;          // количество записей в базе

type
  TStudRec = record
      fio:string[30];
      data:string[30];
      adres:string[30];
      facult:string[30];
      kafedra:string[30];
      grupa:string[30];
      godpost:string[30];
  end;

Подскажите пожайлуста, в чем ошибка...
(Может быть это из-за того что пример был для паскаля...)
Компилируется нормально, ошибка возникает при работе этой процедуры...

[Квэнди]

Reset(PersonFile);
reset не позволяет писать в файл

[sdp]

вот тут есть Reset(PersonFile)==>

function OpenDB(const DbName: string): Boolean;
begin
  AssignFile(PersonFile, DbName);
  try
    Reset(PersonFile);            // открываем базу
    StudCount := FileSize(PersonFile); // текущее кол. записей
    DbOpen := TRUE;               // открытие прошло нормально
  except
    StudCount := 0;
    DbOpen := FALSE;
  end;
  Result := DbOpen;
end;

[Квэнди]

и? еще раз читайте мой пост

[JTG]

Ээээ...странно?

Процедура
procedure Reset(var F: File [; RecSize: Word ]);
открывает существующий файл для чтения и записи, текущая позиция устанавливается на первой строке файла.

Хорошо бы файловую переменную указывать

...
 AddRec(StudEntry);
 Write(КУДА?,StudEntry.fio+' '+StudEntry.data+' '+StudEntry.adres...

--
там в примере консольное приложение, а ты наверно gui склепал, в нём наверно write никуда не пишет

[sdp]

--
там в примере консольное приложение, а ты наверно gui склепал, в нём наверно write никуда не пишет

именно

...
 AddRec(StudEntry);
 Write(КУДА?,StudEntry.fio+' '+StudEntry.data+' '+StudEntry.adres...

я писал там куда, но в таком случае не компилируется...

[sdp]

Наверное в этом проблема и заключается, т.к. для консольного приложения данный код работает, а для gui, возможно, надо что-то поменять
...

[sdp]

Квэнди, извините, не ту процедуру выложил...
я имел ввиду вот:

function CreateDB(const DbName: string): Boolean;
begin
  AssignFile(PersonFile, DbName);
  try
    Rewrite(PersonFile);        // открываем базу
    DbOpen := TRUE;             // открытие прошло нормально
  except
    DbOpen := FALSE;
  end;
  StudCount := 0;             // записей нет
  Result := DbOpen;
end;

тут есть Rewrite(PersonFile), или этого не достаточно?

[JTG]

я писал там куда, но в таком случае не компилируется...

В консоли write выводит текст в консоль (кто бы мог подумать ), а тебе куда надо? В файл записать? Так это AddRec делает. А если вывести на экран лог чего записалось - используй не write, а TMemo например.

...       Memo1.lines.add(StudEntry.fio+' '+StudEntry.data+' '+StudEntry.adres+' '+StudEntry.facult+' '+StudEntry.kafedra+' '+StudEntry.grupa+' '+StudEntry.godpost);
...

Строка длинная будет, если что - можно разбить, где-то вместо ...+' '+... поставить ...+#13#10+...