простая бд на делфи

[NewLamer&Programer]

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

TAccount = record
    Login: String[20];
    Email: String[30];
    Password: String[20];
    Info: String[255];
  end;

  TAccArr = array of TAccount;
  PTAccArr = ^TAccArr;

Var id: TAccArr;

Procedure Save(local_id: TAccArr; local_path: String);
Var AccountFile: file of TAccount;
    Count, i: Integer;
begin
AssignFile(AccountFile,local_path);
ReWrite(AccountFile);//,SizeOf(TAccount));
Count:= Length(local_id);
for i:= 0 to Count-1 do
BlockWrite(AccountFile,local_id,Count);
CloseFile(AccountFile);
end;

Procedure Load(local_id: PTAccArr; local_path: String);
Var AccountFile: file of TAccount;
    Count: Integer;
begin
Count:= 0;
AssignFile(AccountFile,local_path);
ReWrite(AccountFile);//,SizeOf(TAccount));
while not Eof(AccountFile) do
  begin
  inc(Count);
  BlockRead(AccountFile,local_id,Count);
  end;
CloseFile(AccountFile);
end;

+ проект во вложении

з.ы. менеджер паролей понятно, что по идее еще их надо шифровать, но я еще не дошел до этого...

[Serge_Bliznykov]

Procedure Load(local_id: PTAccArr; local_path: String);
Var AccountFile: file of TAccount;
    Count: Integer;
begin
Count:= 0;
AssignFile(AccountFile,local_path);
ReWrite(AccountFile);//,SizeOf(TAccount));
while not Eof(AccountFile) do
  begin
  inc(Count);
  BlockRead(AccountFile,local_id,Count);
  end;
CloseFile(AccountFile);
end;

Rewrite - перезаписывает файл (то бишь стирает и создаёт новый)
Думаю, что Вы хотели написать Reset()

и да, зачем использовать BlockRead/BlockWrite, когда язык предоставляет Вам возможность писать структуры через Write / Read ?!


UPDATE
посмотрел на код записи!!

ОМГ!!

Procedure Save(local_id: TAccArr; local_path: String);
Var AccountFile: file of TAccount;
    Count, i: Integer;
begin
AssignFile(AccountFile,local_path);
ReWrite(AccountFile);//,SizeOf(TAccount));
Count:= Length(local_id);
for i:= 0 to Count-1 do
  BlockWrite(AccountFile,local_id,Count);

local_id - это УКАЗАТЕЛЬ (переменная, в которой хранится АДРЕС.
Для чего Вы этот адрес пытаетесь записать в файл?!!


нужно примерно так писать:

Procedure Save(local_id: TAccArr; local_path: String);
Var AccountFile: file of TAccount;
    i: Integer;
begin
  AssignFile(AccountFile,local_path);
  ReWrite(AccountFile);
  For i:=Low(local_id) to High(local_id) do
      Write(AccountFile, local_id[i]);
  CloseFile(AccountFile);
end;


Procedure Load(local_id: PTAccArr; local_path: String);
Var AccountFile: file of TAccount;
    i : Integer;
begin
  AssignFile(AccountFile,local_path);
  Reset(AccountFile);
  SetLength(local_id, FileSize(AccountFile) );
  for i:= 0 to  FileSize(AccountFile)-1 do
    Read(AccountFile, local_id[i]);
  end;
  CloseFile(AccountFile);
end;

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

[NewLamer&Programer]

исправил так:

Procedure Load(local_id: PTAccArr; local_path: String);
Var AccountFile: file of TAccount;
    Count: Integer;
begin
Count:= 0;
AssignFile(AccountFile,local_path);
//ReWrite(AccountFile);//,SizeOf(TAccount));
Reset(AccountFile);
while not Eof(AccountFile) do
  begin
  inc(Count);
  BlockRead(AccountFile,local_id,Count);
  end;
CloseFile(AccountFile);
end;

теперь выскакивает ошибка "Privileged instruction" при попытке загрузки
а BlockRead/BlockWrite для чтения/записи двоичной структуры данных и работы с бинарным файлом, разве Write/Read это умеют?

[Stilet]

Для чего нужна эта функция?
Почему ты BlockRead используешь в цикле, если он предназначен для чтения любого кол-ва блоков?

[Serge_Bliznykov]

теперь выскакивает ошибка "Privileged instruction" при попытке загрузки

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

[NewLamer&Programer]

ааа все, про BlockRead и цикл понял, бред несу... даже i нигде не использовал, а цикл поставил также FileSize - хорошая вещь, я не знал про такую

пока что исправил так:

Procedure Save(local_id: TAccArr; local_path: String);
Var AccountFile: file of TAccount;
    Count, i: Integer;
begin
AssignFile(AccountFile,local_path);
ReWrite(AccountFile);
Count:= Length(local_id);
for i:= 0 to Count-1 do
BlockWrite(AccountFile,local_id,i);
CloseFile(AccountFile);
end;

Procedure Load(local_id: PTAccArr; local_path: String);
Var AccountFile: file of TAccount;
    Count, i: Integer;
begin
AssignFile(AccountFile,local_path);
Reset(AccountFile);
Count:= FileSize(AccountFile);
BlockRead(AccountFile,local_id,Count);
CloseFile(AccountFile);
end;

теперь оно матерится "Access violation..." при загрузке

п.с. да я прочитал ваш добавленный код, просто не сразу увидел

[Stilet]

"Access violation..."

Ну а отладчик чего показывает? На какой строке-то?

[NewLamer&Programer]

Сообщение от Stilet

Ну а отладчик чего показывает? На какой строке-то?

говорю же при загрузке, т.е. в уже скомпилированной программе когда я нажимаю на кнопку на которой висит Load вылезает ошибка, отладчик никуда не указывает

[Stilet]

говорю же при загрузке, т.е. в уже скомпилированной программе

когда я нажимаю на кнопку на которой висит Load вылезает ошибка

Так всетки, при загрузке или при обработке события клика кнопки? Определись.
Поставь на первый оператор кнокпи брекпоинт и далее пошаговкой.

[NewLamer&Programer]

ну как? хз... короче поставил брек, все равно ошибка и дальше ничего не двигается... пошаговка дальше не идет, просто висит ошибка сразу же... на Load тоже ставил и опять ошибка на бреке и никуда дальше не идет...