The Project | About Us | Contribute | Donations | License

HOME

In this section, we will explore two fundamental data structures in Delphi/Object Pascal: Records and Sets. These structures are essential for organizing and managing data efficiently in your applications.

Records

Records in Delphi are similar to structures in other programming languages. They allow you to group different types of data under a single name. This is particularly useful for representing complex data entities.

Key Concepts

Definition: A record is a composite data type that groups together variables of different types.
Fields: Each element in a record is called a field, and each field can be of a different data type.
Access: Fields in a record are accessed using the dot notation.

Defining a Record

To define a record, you use the record keyword. Here is an example:

type
  TPerson = record
    Name: string;
    Age: Integer;
    Email: string;
  end;

Using a Record

Once you have defined a record, you can create variables of that type and access their fields:

var
  Person: TPerson;
begin
  Person.Name := 'John Doe';
  Person.Age := 30;
  Person.Email := '[email protected]';

  WriteLn('Name: ', Person.Name);
  WriteLn('Age: ', Person.Age);
  WriteLn('Email: ', Person.Email);
end;

Practical Example

Let's create a simple program that uses a record to store and display information about a book:

program BookRecordExample;

type
  TBook = record
    Title: string;
    Author: string;
    YearPublished: Integer;
  end;

var
  Book: TBook;

begin
  Book.Title := 'The Delphi Programming Language';
  Book.Author := 'John Smith';
  Book.YearPublished := 2020;

  WriteLn('Book Title: ', Book.Title);
  WriteLn('Author: ', Book.Author);
  WriteLn('Year Published: ', Book.YearPublished);
end.

Sets

Sets in Delphi are collections of values of the same ordinal type. They are useful for representing a group of related values and performing operations like union, intersection, and difference.

Key Concepts

Definition: A set is a collection of values of the same ordinal type.
Operations: You can perform various operations on sets, such as union (+), intersection (*), and difference (-).
Membership: You can check if a value is a member of a set using the in keyword.

Defining a Set

To define a set, you use the set of keyword. Here is an example:

type
  TDays = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
  TWorkDays = set of TDays;

Using a Set

Once you have defined a set, you can create variables of that type and perform operations on them:

var
  WorkDays, Weekend: TWorkDays;
begin
  WorkDays := [Mon, Tue, Wed, Thu, Fri];
  Weekend := [Sat, Sun];

  if Mon in WorkDays then
    WriteLn('Monday is a workday.');

  if Sat in Weekend then
    WriteLn('Saturday is a weekend day.');

  // Union
  var AllDays := WorkDays + Weekend;
  WriteLn('All days: ', AllDays);

  // Intersection
  var CommonDays := WorkDays * Weekend;
  WriteLn('Common days: ', CommonDays);

  // Difference
  var NonWorkDays := AllDays - WorkDays;
  WriteLn('Non-work days: ', NonWorkDays);
end;

Practical Example

Let's create a simple program that uses sets to manage a collection of favorite colors:

program FavoriteColorsExample;

type
  TColor = (Red, Green, Blue, Yellow, Orange, Purple);
  TColorSet = set of TColor;

var
  FavoriteColors, PrimaryColors: TColorSet;

begin
  FavoriteColors := [Red, Blue, Purple];
  PrimaryColors := [Red, Green, Blue];

  if Red in FavoriteColors then
    WriteLn('Red is a favorite color.');

  // Union
  var AllColors := FavoriteColors + PrimaryColors;
  WriteLn('All colors: ', AllColors);

  // Intersection
  var CommonColors := FavoriteColors * PrimaryColors;
  WriteLn('Common colors: ', CommonColors);

  // Difference
  var UniqueColors := FavoriteColors - PrimaryColors;
  WriteLn('Unique favorite colors: ', UniqueColors);
end.

Exercises

Exercise 1: Define and Use a Record

Define a record type TCar with the following fields: Make (string), Model (string), and Year (Integer).
Create a variable of type TCar and assign values to its fields.
Display the values of the fields.

Solution:

type
  TCar = record
    Make: string;
    Model: string;
    Year: Integer;
  end;

var
  Car: TCar;

begin
  Car.Make := 'Toyota';
  Car.Model := 'Corolla';
  Car.Year := 2021;

  WriteLn('Car Make: ', Car.Make);
  WriteLn('Car Model: ', Car.Model);
  WriteLn('Car Year: ', Car.Year);
end.

Exercise 2: Define and Use a Set

Define an enumerated type TSeason with the values Spring, Summer, Autumn, and Winter.
Define a set type TSeasons based on TSeason.
Create a variable of type TSeasons and assign it the values Spring and Summer.
Check if Winter is in the set and display a message accordingly.

Solution:

type
  TSeason = (Spring, Summer, Autumn, Winter);
  TSeasons = set of TSeason;

var
  Seasons: TSeasons;

begin
  Seasons := [Spring, Summer];

  if Winter in Seasons then
    WriteLn('Winter is in the set.')
  else
    WriteLn('Winter is not in the set.');
end.

Conclusion

In this section, we have learned about records and sets in Delphi/Object Pascal. Records allow you to group different types of data under a single name, while sets provide a way to manage collections of values of the same ordinal type. Understanding these data structures is crucial for efficient data management in your applications. In the next section, we will explore enumerated and subrange types, which further enhance your ability to work with data in Delphi.

Records and Sets

Records

Key Concepts

Defining a Record

Using a Record

Practical Example

Sets

Key Concepts

Defining a Set

Using a Set

Practical Example

Exercises

Exercise 1: Define and Use a Record

Exercise 2: Define and Use a Set

Conclusion

Delphi/Object Pascal Programming Course

Module 1: Introduction to Delphi/Object Pascal

Module 2: Control Structures and Procedures

Module 3: Working with Data

Module 4: Object-Oriented Programming

Module 5: Advanced Delphi Features

Module 6: GUI Development with VCL and FMX

Module 7: Web and Mobile Development

Module 8: Best Practices and Design Patterns

Module 9: Final Project