Использование записей для хранения информации полей

Previous  Top  Next

    
 

Code:

{

  You sometimes wish to store multiple information in a given class like

  in the example: alltogether when it belongs together.

  Thus accessing this information from out of the class can be achieved

  using property declaration. Its a good way to "clean your code" and

  make it as "logic" as possible.

  You also may have to store or load information from your class using

  file or stream technology. This can be done at once for the recorded

  information from within the given class.

}

 

type

  TPersonRecord = Record

     FirstName: String;

     LastName: String;

     BirthDate: TDate;

     End;

 

  TForm4 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    fActualUser: TPersonRecord;

    ...

    procedure SaveActualUser(S: TFileStream); // it's an example

   procedure LoadActualUser(S: TFileStream);

    ...

  public

    property FirstName: string read fActualUser.FirstName

                               write fActualUser.FirstName;

    property LastName : string read fActualUser.LastName

                               write fActualUser.LastName;

    property BirthDate: TDate  read fActualUser.BirthDate

                               write fActualUser.BirthDate;

  end;

 

procedure TForm4.SaveActualUser(S: TFileStream);

begin

  // All that stuff at once in your Stream

S.Write(fActualUser, SizeOf(fActualUser))

end;

 

procedure TForm4.LoadActualUser(S: TFileStream);

begin

  // All that stuff at once back in your class

S.Read(fActualUser, SizeOf(fActualUser));

end;

 

©Drkb::00779

http://delphiworld.narod.ru/

DelphiWorld 6.0