freepascal bugtracker

procedure loadlogin(r: ansistring);
var
  FS: TFileStream;
  i, c: int64;
  rdata: UserLogin;

begin
  if FileExists(r) then
    begin
      try
        clearlogin(0);
        FS:=TFileStream.Create(r, fmOpenRead);
        FS.ReadBuffer(c, sizeof(c));
        SetLength(ul, c);
        for i:=1 to (c) do
          begin
            FS.ReadBuffer(rdata, sizeof(UserLogin));
            ul[i-1]:=rdata;
          end;
        a:=c;
      finally
        FS.Free;
      end;
    end;
end;

procedure savelogin(r: ansistring);
var
  FS: TFileStream;
  i, c: int64;

begin
  try
    FS:=TFileStream.Create(r, fmCreate or fmOpenWrite);
    c:=Length(ul);
    FS.WriteBuffer(c, sizeof(c));
    for i:=1 to (c) do
      begin
        FS.WriteBuffer(ul[i-1], sizeof(UserLogin));
      end;
  finally
    FS.Free;
    loadlogin(r);
  end;
end;