Классы

[s.Creator]

ну если Вам известно, то поэтому и Circular
Вы смотрели в Unit2 после implementation
там тоже есть

А лучше войдите в Unit2, удалите ссылку на Unit1 из uses, потом нажмите <Alt>+<F11> и посмотрите куда добавиться

[Nostalgia]

Возвращаюсь к данной теме. УearOf(Date()) это две функции даты-времени? Какие у них параметры ? И принцип их работы?

[s.Creator]

а F1 не пробовали нажимать?
function Date: TDateTime; - возвращает текущую дату
function YearOf(const AValue: TDateTime): Word; - возвращает год из AValue.

[Nostalgia]

Извините за настойчивость и за глупые вопросы. просто знаю что преподователь это спросит. после функции Date пустые скобки. что это значит? можно обойтись и без них? Что вообще может быть в них?

[psycho-coder]

Да, можно. У s.Creator наверно привычка от Си, ставить пустые скобки при вызове функции без параметров
В них не должно быть ничего!

[Nostalgia]

Нужно переделать это программу. Добавить туда свойства для поля, и возможность ввождить год рождения через поле для ввода. вот сделала, помогите пожалуйста найти в чем моя ошибка

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  H:THuman;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
H.FGod_rozd:=StrToInt(Form1.Edit1.Text);
H.Age;
Form1.Memo1.Lines.Add(H.Describe);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
H:=THuman.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
H.Free;
end;

end.

unit Unit2;

interface
uses DateUtils,SysUtils,Dialogs;
type
THuman=class
private
FAge:integer;
  function GetFAge:integer;
procedure SetFAge(FA:integer);
public
Ffam:string;
FGod_rozd:integer;
constructor Create;

function Describe:string;
function Age:integer;
property FAge:integer read GetFAge
                      write SetFAge;
end;
implementation

constructor THuman.Create;
begin
  Ffam:='Èâàíîâà';
  FGod_rozd:=1991;
end;

function Describe:string;
begin
  Describe:='Ffam='+Ffam+'   '+'FGod_rozd'+IntToStr(FGod_rozd)+'   '+'FAge='+FAge;
end;

function GetFAge:integer;
begin
  GetFAge:=FAge;
end;

procedure SetFAge(FA:integer);
begin
  FAge:=FA;
end;

function Age:integer;
begin
  Ffam:=YearOf(Date)-FGod_rozd;
end;
end.

[Utkin]

Сообщение от psycho-coder

Да, можно. У s.Creator наверно привычка от Си, ставить пустые скобки при вызове функции без параметров
В них не должно быть ничего!

Это полезная привычка, не люблю Си, но всегда ставлю пустые скобки при вызове функций (и процедур) независимо от числа параметров.