Question

How to create and use object in Pascal

Answer 1

program example;

type Worker = object
    private
        _name : string;
        _age : integer;
    public
        procedure setName(nm : string);
        function getName() : string;
        
        procedure setAge(ag : integer);
        function getAge() : integer;
end;

procedure Worker.setName(nm : string);
begin
    _name := nm;
end;

function Worker.getName() : string;
begin
    getName := _name;
end;

procedure Worker.setAge(ag : integer);
begin
    _age := ag;
end;

function Worker.getAge() : integer;
begin
    getAge := _age;
end;

var
    obj : Worker;
begin
  obj.setName('Tom');
  obj.setAge(47);
  
  writeln(obj.getName());
  writeln(obj.getAge());
end.





(*
run:

Tom
47

*)

 

70+ SQL courses for beginners and professionals