1. Computing

Advanced Record Structure Type in Turbo Delphi and Delphi 2006

Records Almost Like Classes

By

Advanced Record Type in Turbo Delphi / Delphi 2006

Advanced Record Type in Turbo Delphi / Delphi 2006

Record data types in Delphi represent a mixed set of elements. Each element is called a field; the declaration of a record type specifies a name and type for each field.

Records are commonly used in Microsoft Windows API calls, where they are referred to as "structures".

"Understanding and Using Record Data Types in Delphi" describes what records are, how to declare and use records. What's more, if you know that you will never need to use all of the fields in a single record instance, you can use variant records.

Smarter Records in Turbo Delphi / Delphi 2006

Records in Turbo Delphi (Delphi 2006) are even more powerful!

How about having a record constructor where you can initialize record field values? How about having properties in records? Cool, ha :)

Here's a list of the new record features in Turbo Delphi (Delphi 2006)

  • Records can have constructor, with at least one parameter.
  • Records support properties and static methods.
  • Records support operator overloading.
  • Records can have methods (functions, procedures).
  • Records do NOT support virtual methods ("virtual", "dynamic", and "message")
  • Records do NOT support destructors.
Note: records are value types. Records are are copied on assignment, passed by value.

Here's an example of the new, advanced records in Delphi 2006:

 type
   TTurboRecord = record
   strict private
     fNameValue : integer;
     function GetName: string;
   public
     NamePrefix : string;
     constructor Create(const initNameValue : integer) ;
     property Name : string read GetName;
   end;
 
 implementation
 
 constructor TTurboRecord.Create(const initNameValue : integer) ;
 begin
   fNameValue := initNameValue;
   NamePrefix := '"record constructor"';
 end;
 
 function TTurboRecord.GetName: string;
 begin
   Inc(fNameValue) ;
   result := Format('%s %d',[NamePrefix, fNameValue]) ;
 end;
 
Drop a TMemo control on a form and try the following code:
 var
   turboRecord : TTurboRecord;
   anotherTurboRecord : TTurboRecord;
 begin
   //no Constructor needed - fNameValue = 0 by default
   turboRecord.NamePrefix := 'turboRecord';
   Memo1.Lines.Add(turboRecord.Name) ;
   Memo1.Lines.Add(turboRecord.Name) ;
 
   //constructor used
   turboRecord := TTurboRecord.Create(2006) ;
   Memo1.Lines.Add(turboRecord.Name) ;
   Memo1.Lines.Add(turboRecord.Name) ;
 
   anotherTurboRecord := turboRecord;
   anotherTurboRecord.NamePrefix := 'anotherTurboRecord';
 
   Memo1.Lines.Add(anotherTurboRecord.Name) ;
   Memo1.Lines.Add(anotherTurboRecord.Name) ;
 
   Memo1.Lines.Add(turboRecord.Name) ;
   Memo1.Lines.Add(turboRecord.Name) ;
 
   //NO need to FREE record types
 end; 
Delphi tips navigator:
» Understanding and (Not) Using the Goto Delphi Statement
« Allow Only One Application Execution per Windows Session

©2014 About.com. All rights reserved.