Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Object-oriented concepts in Object Pascal
#1
program ObjectOrientedExample;
type
  // Define a simple class representing a person
  TPerson = class
  private
    FName: string;
    FAge: Integer;
  public
    constructor Create(const AName: string; AAge: Integer);
    procedure SayHello;
  end;

constructor TPerson.Create(const AName: string; AAge: Integer);
begin
  FName := AName;
  FAge := AAge;
end;

procedure TPerson.SayHello;
begin
  WriteLn('Hello, my name is ', FName, ' and I am ', FAge, ' years old.');
end;

var
  Person: TPerson;
begin
  // Create an instance of TPerson
  Person := TPerson.Create('John', 30);

  // Call the SayHello method
  Person.SayHello;

  // Free the memory allocated for the object
  Person.Free;
end.
Also follow me on Youtube for videos about video games:
https://www.youtube.com/channel/UCxfkGVU...2mQ/videos
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  Getting started with Object Pascal Qomplainerz 0 369 07-25-2023, 09:45 AM
Last Post: Qomplainerz
  Basic algorithms and Data Structures in Object Pascal Qomplainerz 0 384 07-25-2023, 09:44 AM
Last Post: Qomplainerz
  File I/O in Object Pascal Qomplainerz 0 342 07-25-2023, 09:44 AM
Last Post: Qomplainerz
  Exception handling in Object Pascal Qomplainerz 0 402 07-25-2023, 09:43 AM
Last Post: Qomplainerz
  String manipulation in Object pascal Qomplainerz 0 338 07-25-2023, 09:41 AM
Last Post: Qomplainerz
  Arrays and Collections in Object Pascal Qomplainerz 0 362 07-25-2023, 09:41 AM
Last Post: Qomplainerz
  User-defined functions in Object Pascal Qomplainerz 0 353 07-25-2023, 09:40 AM
Last Post: Qomplainerz
  Control flow in Object Pascal Qomplainerz 0 361 07-25-2023, 09:40 AM
Last Post: Qomplainerz
  Basic Input and Output in Object Pascal Qomplainerz 0 354 07-25-2023, 09:39 AM
Last Post: Qomplainerz
  Datatypes and Variables in Object Pascal Qomplainerz 0 347 07-25-2023, 09:39 AM
Last Post: Qomplainerz

Forum Jump:


Users browsing this thread: 2 Guest(s)