unit Unit2;

interface
Uses
   Clipbrd;

Type

Osoba = class
private
   nazwisko : String[25];
   imie     : String[15];
   ulica    : String[50];
   kodp     : String[7];
   miasto   : String[50];

public
   function get_nazwisko() : String;
   function get_imie() : String;
   function get_ulica() : String;
   function get_kodp() : String;
   function get_miasto() : String;

   procedure set_nazwisko(Value : String);
   procedure set_imie(Value : String);
   procedure set_ulica(Value : String);
   procedure set_kodp(Value : String);
   procedure set_miasto(Value : String);

   constructor Create();
   destructor  Destroy(); override;
end;

implementation
{------------------------------------------------------------------------------}
constructor Osoba.Create();
begin
end;

destructor Osoba.Destroy();
begin
	inherited;
end;

function Osoba.get_imie() : String;
begin
	Result := imie;
end;

function Osoba.get_kodp() : String;
begin
	Result := kodp;
end;

function Osoba.get_miasto() : String;
begin
	Result := miasto;
end;

function Osoba.get_nazwisko() : String;
begin
	Result := nazwisko;
end;

function Osoba.get_ulica() : String;
begin
	Result := ulica;
end;

procedure Osoba.set_imie(Value: String);
begin
	imie := Value;
end;

procedure Osoba.set_kodp(Value: String);
begin
   kodp := Value;
end;

procedure Osoba.set_miasto(Value: String);
begin
   miasto := Value;
end;

procedure Osoba.set_nazwisko(Value: String);
begin
   nazwisko := Value;
end;

procedure Osoba.set_ulica(Value: String);
begin
	ulica := Value;
end;

end.
