Saving Typr Array to Registry

OK, here's some more code to use arrays in Delphi. I use a Dynamic array, AryUser, which means that the array has a variable length, so you need to set the length of the array


TUserData = Record
    Number: Integer;
    FirstName: String[14];
{I changed the names to Strings, which are easier for
beginers to use}
    MiddleIni: Char;
    LastName: String[16];
    Account: Word;
    ARect: TRect;
    ShoeSize: Single;
    end;


{declare your Array without any size [0..42]}
private
    { Private declarations }
    AryUser: Array of TUserData;





procedure TForm1.button_AddUserClick(Sender: TObject);
var
AryLen: Byte;
begin
{this procedure adds users to the AryUser Array}
if Length(AryUser) > 30 then
  begin
  {limit the amount of users, you can use any amoumt but some
  cutoff should be used}
  ShowMessage('the Max of 30 users has been reached, NO MORE USERS!');
  Exit;
  end;
AryLen := Length(AryUser);
{when you use Dymanic arrays you have to set the length,
it is important to have enough room in your array, or you will
get exeptions for tring to access array member that do not exist}
SetLength(AryUser, AryLen +1);

AryUser[High(AryUser)].Number := 123450+ AryLen+1;
{use the Delphi function High(AryUser) to get the limit of the Array
I use the AryLen below to save processor time}
AryUser[AryLen].FirstName := 'User '+IntToStr(AryLen+1);
AryUser[AryLen].MiddleIni := '0';
AryUser[AryLen].LastName := IntToStr(AryLen+1)+' LastName';
AryUser[AryLen].Account := 300+AryLen+1;
AryUser[AryLen].ARect := Rect(43, 127, 234, 382);
AryUser[AryLen].ShoeSize := 4.5+AryLen;

{with AryUser[AryLen] do
  begin
  // the with - - - - do can be helpful
  Number := 123450+ AryLen+1;
  FirstName := 'User '+IntToStr(AryLen+1);
  MiddleIni := '0';
  LastName := IntToStr(AryLen+1)+' LastName';
  Account := 300+AryLen+1;
  ARect := Rect(43, 127, 234, 382);
  ShoeSize := 4.5+AryLen;
  end;}
Label2.Caption := AryUser[AryLen].FirstName;
end;


procedure TForm1.sbut_Save2RegClick(Sender: TObject);
var
Reg1: TRegistry;
UserData1: TUserData;
i: Integer;
begin
{UserData1.Number := 876121;
UserData1.FirstName := 'Mikey';
UserData1.MiddleIni := 'G';
UserData1.LastName := 'MacFerson, Levy';
UserData1.Account := 321;
UserData1.ARect := Rect(43, 127, 234, 382);
UserData1.ShoeSize := 11.5;}
if Length(AryUser) < 1 then Exit;
Reg1 := TRegistry.Create;
try
  Reg1.RootKey := HKEY_CURRENT_USER;
  if Reg1.OpenKey('\Software\Tbear2u', True) then
    begin
    Reg1.WriteInteger('ArrayHigh', High(AryUser));
    {you need to put the array number ArrayHigh in the registry}
    for i := 0 to High(AryUser) do
    Reg1.WriteBinaryData('user'+IntToStr(i),AryUser[i], SizeOf(TUserData));
      //Reg1.WriteBinaryData('user1',UserData1, SizeOf(UserData1));
      Reg1.CloseKey;
    end else ShowMessage('No GO');
  finally
    Reg1.Free;
  end;
Label2.Caption := 'Number is '+IntToStr(AryUser[0].Number);
end;

procedure TForm1.sbut_ReadRegClick(Sender: TObject);
var
Reg1: TRegistry;
UserData1: TUserData;
i, High: Integer;
begin
Reg1 := TRegistry.Create;
try
  Reg1.RootKey := HKEY_CURRENT_USER;
  if Reg1.OpenKey('\Software\Tbear2u', False) then
    begin
    if not (Reg1.ValueExists('ArrayHigh') and Reg1.ValueExists('user0')) then
      begin
      {test for the values otherwize you'll throw an exeption}
      ShowMessage('Registry Info does not exist');
      Exit;
      end;
    High := Reg1.ReadInteger('ArrayHigh');
    {get the number of users in High}
    SetLength(AryUser, High+1);
    for i := 0 to High do
    Reg1.ReadBinaryData('user'+IntToStr(i),AryUser[i], SizeOf(TUserData));;
    Reg1.CloseKey;
    end else ShowMessage('No GO');
  finally
    Reg1.Free;
  end;
Label2.Caption := 'Last name is '+AryUser[High].LastName;
{if UserData1.Number = 876121 then
ShowMessage('Name is '+UserData1.FirstName+' '+UserData1.MiddleIni+'. '+UserData1.LastName+' ShoeSize is '+FloatToStr(UserData1.ShoeSize));}
end;


procedure TForm1.button_SaveFileClick(Sender: TObject);
var
UserFile: File of TUserData;
i: Integer;
begin
{Delphi has a very useful method using File of Type
with a File of Type, the file is automaticly segmented
into the individual Records of the Type}
if Length(AryUser) < 1 then Exit;
SaveDialog1.Filter := 'UDF|*.udf|AllFiles|*.*';
SaveDialog1.FilterIndex := 1;
if SaveDialog1.Execute then
  begin
  AssignFile(UserFile, SaveDialog1.FileName);
  {these are standard Delphi File handling routines}
  Rewrite(UserFile);
  for i := 0 to High(AryUser) do
  Write(UserFile, AryUser[i]);
  {you do not need to specify any byte length for the read
  it will use the size of the record of the File Type}
  CloseFile(UserFile);
  end;
end;

procedure TForm1.button_LoadUsersClick(Sender: TObject);
var
UserFile: File of TUserData;
i, Len: Integer;
begin
OpenDialog1.Filter := 'UDF|*.udf';
OpenDialog1.FilterIndex := 0;
if OpenDialog1.Execute then
  begin
  AssignFile(UserFile, OpenDialog1.FileName);
  Reset(UserFile);
  Len := FileSize(UserFile);
  if Len < 1 then Exit;
  SetLength(AryUser, Len);
  for i := 0 to Len-1 do
  Read(UserFile, AryUser[i]);
  CloseFile(UserFile);
  Label2.Caption:= AryUser[Len-1].LastName;
  end;
end;

- - - - - - - - - - - - - - - -
ask if you need more