检查记录数组中的空间是否空闲

Question

我正在为我的课程在 Delphi 中编写一个数据库，但遇到了一个问题。

  UserRecord = record
                  Forename : string[20];
                  Surname  : string[20];
                  Username : string[20];
                  Password : string[20];
                  gender   : boolean;
                end;

var
  User : UserRecord;
  NewUserForm: TNewUserForm;
  UserFile : file of UserRecord;
  UserArray : array[1..20] of UserRecord;

这是我的代码的精简版本，我希望能够将记录“UserRecord”保存到数组 UserArray 中，这是一件简单的事情，但是如果第一个已经有一个“用户”我的数组的入口点，它将覆盖它。我需要找到一种方法来检查数组以找到数组中的一个空点，这样我就可以将它保存在那里而不是不断地覆盖第一个入口点。

Answer 1

function AddUserRecord(ARecord: UserRecord; var AUserArray: array of UserRecord): integer;
var
  EmptyRecord: UserRecord;
  I: Integer;
begin
  ZeroMemory(@EmptyRecord, SizeOf(UserRecord));
  Result := -1;
  for I := Low(AUserArray) to High(AUserArray) do
    //Compare with an empty record
    if CompareMem(@EmptyRecord, @AUserArray[I], SizeOf(UserRecord)) then
    begin
      AUserArray[I] := ARecord;
      Result := I; 
      Exit;
    end;
end;

procedure Test;
var
  UserArray : array[1..20] of UserRecord;
  User : UserRecord;
begin
  //initialize record array
  ZeroMemory(@UserArray, SizeOf(UserArray));

  //Your logic to fill the record
  //ZeroMemory(@User, SizeOf(UserRecord));
  //User.Username := 'X';

  AddUserRecord(User, UserArray);

end;

Answer 2

如果您想知道该行是否已填充或为空，添加显式标志的最佳方法是，您可以使用该标志来标记已删除行中的真实行，例如在 DBF 文件中。从未填充的单元格可能被视为已删除，除非您不想在运行时更改数组的长度。

type UserRecord = record
  Forename : string[20];
  Surname  : string[20];
  Username : string[20];
  Password : string[20];
  gender   : boolean;
  FreeSpot : Boolean;
end;

添加后，您必须初始化变量，因此它们不会包含错误数据甚至垃圾。您必须在存储缓冲区中运行一个循环，并将它们都标记为未使用

for I := Low( UserArray ) to High( UserArray ) do
    deleteRecord( I ); // initialize buffer so we can start saving data

procedure deleteRecord(const I: integer);
begin
    UserArray[ I ].FreeSpot := true;
end;

之后，您可以像这样制作数据行保存例程：

// returns the array index where the data was stored, or -1 if did not saved
function storeRecord(const data: UserRecord ): integer;
begin
  for Result := Low( UserArray ) to High( UserArray ) do
      if UserArray[ Result ].FreeSpot then 
      begin
        UserArray[ Result ] := data;
        UserArray[ Result ].FreeSpot := false;
        Exit();  
      end;

  Result := -1; // out of the loop - found no free cell to take
end;

如果您无法将字段添加到记录中，您可以尝试

type UserRecord = record
  Forename : string[20];
  Surname  : string[20];
  Username : string[20];
  Password : string[20];
  gender   : boolean;
end;
UserRecordSlot = record
  Data : UserRecord;
  FreeSpot : Boolean;
end;

UserArray : array of UserRecordSlot;

// returns the array index where the data was stored, or -1 if did not saved
function storeRecord(const data: UserRecord ): integer;
begin
  for Result := Low( UserArray ) to High( UserArray ) do
      if UserArray[ Result ].FreeSpot then 
      begin
        UserArray[ Result ].Data := data;
        UserArray[ Result ].FreeSpot := false;
        Exit();  
      end;

  Result := -1; // out of the loop - found no free cell to take
end;