was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

52 Visitors Online


 
...einen Record zur Speicherung verschiedener Informationen aus Properties benutzen?
Autor: Loïs Bégué
Homepage: http://www.begue.de
[ Tip ausdrucken ]  

Tip Bewertung (2):  
     


{
    Es ist manchmal interessant, Informationen die zusammen gehören in Records
    abzuspeichern. In einer Klassendeklaration kann der Record dann als
    Sammelstelle benutzt werden, was zum einen die Übersichtlichkeit des
    Programmes erhöht, zum anderen eine gewisse Logik widderspiegelt.
    Der Zugriff auf die einzelnen Felder des Records kann von außerhalb
    der Klasse mittels Eigenschaften (Properties) erfolgen, was zu besseren
    Code führt...
    Letzlich können Records z.B. sehr einfach dann in Dateien abgespeichert
    bzw. von dort aus wieder geladen werden. This wird dann in einem einzigen
    Vorgang erledigt: das Speichern des Records.
}

{
   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;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners