Базовый класс - предок

[manchester_alan]

Создать базовый класс - Предок, у которого есть имя. Определить виртуальную функцию печати. Создать производный класс Ребенок, у которого функция печати дополнительно выводит имя. Создать производный класс от последнего класса - Внук, у которого есть отчество. Написать свою функцию печати.

Можете,пожалуйста,понятнее просто объяснить, в чем заключается задание? Ну понятно, что это иерархия классов, но вот виртуальная функция печати это что? и свою написать функцию печати это что сделать?

[Utkin]

Тут с примерами: http://www.transl-gunsmoker.ru/2011/...inherited.html
Теория: https://ru.wikipedia.org/wiki/Виртуальный_метод

[manchester_alan]

Тут с примерами: http://www.transl-gunsmoker.ru/2011/...inherited.html
Теория: https://ru.wikipedia.org/wiki/Виртуальный_метод

 type
    TGrandFather=class
     fname:string;
      procedure stamp; virtual;
      property Name: string read fname write fname;
  end;

  TFather = class(TGrandFather)
  procedure stamp; override;
  property name;
  end;

  TSon=class(TFather)
  fname2:string;
  procedure stamp; reintroduce;
  property name2: string read fname2 write fname2;
  end;


  implementation
   procedure TGrandFather.stamp;
   begin

   end;

   procedure TFather.stamp;
   begin
     inherited;

   end;

   procedure TSon.stamp;
   begin

   end;

примерно так правильно? ну для начала?

[Utkin]

Типа того . Бери Делфи и воплощай.

[manchester_alan]

Типа того . Бери Делфи и воплощай.

Спасибо)) а еще, то есть как я понял в базовом классе нужно вводить Имя Фамилию... Дальше он сразу должен выводить имя там фамилию, а в третьем классе опять вводить Имя Фамилия ну и Отчество..?

[Utkin]

Дальше он сразу должен выводить имя там фамилию, а в третьем классе опять вводить Имя Фамилия ну и Отчество..?

Зачем? У тебя отчество это имя предыдущего класса будет.

[manchester_alan]

ааа то есть после каждого класса должна оставаться Фамилия и Отчество, а имя ты сам должен вписать ?

[Utkin]

ааа то есть после каждого класса должна оставаться Фамилия и Отчество, а имя ты сам должен вписать ?

Когда ты наследуешься от класса то в наследство получаешь не только его методы, но и данные.
http://cybern.ru/delphi-class-inheritance.html

[manchester_alan]

понятно спасибо))

Типа того . Бери Делфи и воплощай.

unit Unit1;
 
interface
  type
    TGrandFather=class
     ffam:string;
     constructor create; virtual;
      function stamp:string;  virtual;
      public
      property fam: string read stamp write ffam;
  end;
 
  TFather = class(TGrandFather)
  fname:string;
  function stamp:string; override;
  constructor create; override;
  property name: string read stamp;
  end;
 
  TSon=class(TFather)
  fPatronymic:string;
  constructor create; override;
  function stamp:string; override;
  public
  property Patronymic: string read stamp write fPatronymic;
  end;
 
 
  implementation
 
   constructor tgrandfather.create;
   begin
     ffam:=fam;
   end;
 
    constructor tfather.create;
   begin
      fname:=name;
   end;
 
   constructor tson.create;
   begin
     fPatronymic:=Patronymic;
   end;
 
   function TGrandFather.stamp;
   begin
     Readln(ffam);
     Result:=fam;
   end;
 
   function TFather.stamp;
   begin
     Readln(fname);
     Result:=fam+name;
   end;
 
   function TSon.stamp;
   begin
     Readln(fpatronymic);
     Result:=fam+name+patronymic;
   end;
 
end.

Можете посмотреть как написано? Вроде ошибок нет, но...

хотя

 ffam:=fam;

fname:=name;

 fPatronymic:=Patronymic;

это не правильно, нечего не делается... Как тогда выводить??!

[ДралсяСошибками]

Может как-то так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TGrandFather = class
  private
    FFirstName: String;
    FLastName: String;
  public
    constructor Create;
    function Print: String; virtual;
    property LastName: String read FLastName;
  end;

  TFather = class(TGrandFather)
  private
    FFirstName: String;
  public
    constructor Create;
    function Print: String; override;
    property FirstName: String read FFirstName;
  end;

  TSon = class(TFather)
  private
    FFirstName: String;
    FSecondName: String;
  public
    constructor Create;
    function Print: String; override;
    property SecondName: String read FSecondName;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  GrandFather: TGrandFather;
  Father: TFather;
  Son: TSon;
begin
  GrandFather := TGrandFather.Create;
  Memo1.Lines.Add(GrandFather.Print);
  GrandFather.Free;

  Father := TFather.Create;
  Memo1.Lines.Add(Father.Print);
  Father.Free;

  Son := TSon.Create;
  Memo1.Lines.Add(Son.Print);
  Son.Free;
end;

{ TGrandFather }

constructor TGrandFather.Create;
begin
  FFirstName := 'Èâàí';
  FLastName := 'Èâàíîâ';
end;

function TGrandFather.Print: String;
begin
  Result := FFirstName + ' ' + LastName;
end;

{ TFather }

constructor TFather.Create;
begin
  inherited;
  FFirstName := 'Ïåòð';
end;

function TFather.Print: String;
begin
  Result := FFirstName + ' ' + LastName;
end;

{ TSon }

constructor TSon.Create;
begin
  inherited;
  FFirstName := 'Ñåìåí';
  FSecondName := FirstName;
end;

function TSon.Print: String;
begin
  Result := FFirstName + ' ' + SecondName + 'îâè÷ ' + LastName;
end;

end.