Ошибка с переменной

[anGeee]

Вот, начал писать приложение от нечего делать и столкнулся с косяком в коде, который не могу исправить..
Вот код

unit records;

interface
 Type
   tRecord = Class(TObject)
   private
    Login : string;
    Password : string;
   end;

  Type tFile = {file of tRecord}text;
  Function fLoginExists(s : string):boolean;
  Procedure pSaveProfile(login, password : string);

implementation
 Function fLoginExists(s : string):boolean;
 Var vFile : tFile;
     vRecord : tRecord;
     f : boolean;
     str : string;
 Begin
  AssignFile(vFile,'data.txt');
  Reset(vFile);
  f:=false;
  while not(eof(vFile)) do
   begin
    Read(vFile,str);
    vRecord.Login:=str;
     if vRecord.Login = s then
      f:=true;
   end;
  fLoginExists:=f;
  CloseFile(vFile);
 End;

 Procedure pSaveProfile(login, password : string);
 Var vFile : tFile;
     vRecord : tRecord;
 Begin
  AssignFile(vFile,'data.txt');
  ReWrite(vFile);
  vRecord.Login:=login;
  vRecord.Password:=Password;
  Write(vFile,vRecord.Login);
  CloseFile(vFile);
 End;
end.

Собственно, при выполнении программы выскакивает исключение EAccessViolation в строке, выделенной красным цветом. При прогоне модуля в пошаговом режиме переменная vRecord.Login обозначается как InaccessiableValue.. Хотя в процедуре ниже, то же самое vRecord.Login нормально используется.. В чем тут дело ?
пс не ругайте за код = )

[Evgeniy26]

Создай сначала:

vRecord := TRecord.Create;

Про Free не забудь.

vRecord.Free;

[anGeee]

Эм.. Спасибо - работает, но не могли бы вы объяснить, почему в процедуре pSaveProfile не потребовалось создание переменной ? .. *dont_know*

Опять косяк.. Стал переделывать код, чтобы файл был типизированным

unit records;

interface
 Type
   tRecord = Class(TObject)
   private
    Login : string;
    Password : string;
   end;

  Type tFile = file of tRecord;
  Function fLoginExists(s : string):boolean;
  Procedure pSaveProfile(login, password : string);

implementation
 Function fLoginExists(s : string):boolean;
 Var vFile : tFile;
     vRecord : tRecord;
     f : boolean;
 Begin
  vRecord:=TRecord.Create;
  AssignFile(vFile,'data.pkb');
  Reset(vFile);
  f:=false;
  while not(eof(vFile)) do
   begin
    Read(vFile,vRecord);
    if vRecord.Login = s then
     f:=true;
   end;
  fLoginExists:=f;
  CloseFile(vFile);
  vRecord.Free;
 End;

 Procedure pSaveProfile(login, password : string);
 Var vFile : tFile;
     vRecord : tRecord;
 Begin
  vRecord:=TRecord.Create;
  AssignFile(vFile,'data.pkb');
  ReWrite(vFile);
  vRecord.Login:=login;
  vRecord.Password:=Password;
  Write(vFile,vRecord);
  CloseFile(vFile);
  vRecord.Free;
 End;
end.

Снова выскакивает исключение в той же строке. Причем vrecord.Login принмает значение InaccessiableValue после строчки

Read(vFile,vRecord);

Что я теперь не так сделал ?

[Пепел Феникса]

хм...а вы в курсе что обьвление экземпляра класса то есть переменная классовая
это указатель...потому пишется указатель на сопряженную область данных а не данные сами
потому и запись работает...так как сам указатель то существует
Read(vFile,vRecord);...ужас
переписываете указатель другим значением...потому вылетает следущее обращение к этому обьекту vRecord.Login = s

[anGeee]

Был не в курсе.. Спасибо за разъяснение. В качестве решения сделал vRecord записью, а не классом. А какие еще могли бы быть решения ?
Ну и в догонку еще один вопрос по моему приложению. У меня при создании формы проверяется, существует ли файл с данными

procedure TForm1.FormCreate(Sender: TObject);
begin
 if not FileExists('Data.pkb') then
  FileCreate('Data.pkb');
end;

И во время тестов, обнаружилась ошибка: файла не существует, я запускаю прогу, вижу, что файл появился в файле, начинаю вводить новый профиль и пароль, и выскакивает ошибка на строчке

  
  Reset(vFile);

, где vFile связан с файлом, хранящий данные. При перезагрузке проги ошибка исчезает..

[Вавел из ГМТУ]

Желательно указывать полный путь....

ExtractFilePath(ParamStr(0)) + 'Data.pkb'

адд: там должен быть код ошибки.. Какая цифра?

[anGeee]

Везде понавтыкал полный путь.. Та же ошибка. Код - 32.

[Вавел из ГМТУ]

Первый раз слышу про "32"....

1. Сделал АсингФаил? (уже вижу что да)
2. Поставь брекпоинт и погляди что пытается передаться в Reset(...);

[anGeee]

Ну I/O 32 ..
Ну не важно. Как оказалось - это ошибка означает, что файл занят другим процессом. Методом логических умозаключений я пришел к выводу, что все дело в строчке

FileCreate('Data.pkb');

Поэтому я переделал всю эту процедуру следующим образом

procedure TForm1.FormCreate(Sender: TObject);
var FileHandle : Integer;
begin
 if not FileExists(ExtractFilePath(ParamStr(0)) + 'Data.pkb') then
  FileHandle:=FileCreate(ExtractFilePath(ParamStr(0)) + 'Data.pkb');
 FileClose(FileHandle); 
end;

Я все правильно сделал ?

[Вавел из ГМТУ]

Чтото неочень понятно что ты пытаешься сделать....
Тебе нужно создать фаил со структурой:
Login Password
Login Password
Login Password
....

А потом считывать эти значения?

Так может тупо по строкам считывать и не заморачиваться с tRecord?

По коду:

FileHandle объявлена как Integer... Тогда FileClose(FileHandle) - ?
Параметром должен быть фаил который требуется закрыть, а не число.

или я чтото туплю