Разбор полетов - классы

[alekola]

unit person;
interface
uses SysUtils, Dialogs, Classes, DateUtils;
type
TPerson = class
private

FName: string;  //
FDepl, FDep2, FDep3: string;     //
FYear: word;	//
FSex: char;	//
FAttr: boolean;	//
FComment: string;	//
constructor Create;
protected
procedure SetYear(value:word);
procedure SetSex(Value: char);  //
public
constructor create;
property Name: string read FName write FName;
property Depl: string read FDepl write FDepl;
property Dep2: string read FDep2 write FDep2;
property Dep3: string read FDep3 write FDep3;
property Year: word read FYear write SetYear;
property Sex: char read FSex write SetSex default 'М';
property Attr: boolean read FAttr write FAttr default true;
property Comment: string read FComment write FComment;
  end;

implementation
constructor Tperson.Create;
const Unknown = 'Неизвестный';
begin
inherited;
Fsex:= #0;
AgeMax:=150;
Fname:=Unknown;
Fdep1:=Unknown;
Fdep2:=Unknown;
Fdep3:=Unknown;
end;
procedure TPerson.SetSex(Value: char);
begin
if Value in ['М', 'Ж']
then FSex := Value
else ShowMessage('неправильный символ "' + Value +
'" в указании пола');
end;
procedure Tperson.SetYear(value:word);
var
NowYear:=word;
begin
nowYear:=YearOf(date);
if (nowYear - value >= agemin) and (nowYear -value <= AgeMax) then
then FYear:=Value else showmessage('Недопустимый год рождения' + inttostr(value));
end;
end.

Прошу сильно не карать, все как то обходился без классов, а сейчас возникла потребность разобраться, открыл статейку в интернете и пытался разобраться...
Не компилируется, ругает на конструктор класса и просит override
Пытался добавить не помогло чего то.
Переопределять необходимо любой замещаемый метод родительского класса?
Как лучше хранить классы? Можно ли использовать классы других языков.
Помогите разобраться пожалуйста

[evg_m]

Не компилируется, ругает на конструктор класса и просит override

вообще-то он просит overload; (не override)!

У вас дважды объявлено одинаковое имя конструктора.

FAttr: boolean;	//
FComment: string;	//
                    constructor Create;
protected
procedure SetYear(value:word);
procedure SetSex(Value: char);  //
public
                    constructor create;

Смещено для наглядности!
Для разрешения одинаковых имен используется ключевое слово overload; вот его он и просит!

[veniside]

private
constructor Create;
...
public
constructor create;

первый явно лишний.

property Sex: char read FSex write SetSex default 'М';
property Attr: boolean read FAttr write FAttr default true;

default имеет смысл указывать только для published свойст. И если уже указали какое-то значение в default, ваша обязанность это значение в конструкторе присвоить.

Переопределять необходимо любой замещаемый метод родительского класса?

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

перекрытие (overload) необходимо только для тех методов, которые были объявлены как virtual или dynamic выше по дереву классов.

Как лучше хранить классы?

смотря где. В памяти они и сами по себе неплохо хранятся, в файле обычно используется сериализация.

Можно ли использовать классы других языков.

только через COM

[Utkin]

А где деструктор? Здесь как бы необязателен, но как только появятся чужие экземпляры или начнете объявлять динамические массивы - не забудьте про деструктор. Когда писал на Дельфи в любом классе, даже примитивном всегда имелся деструктор - помогает от утечек памяти и непонятных вылетов программы

[evg_m]

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

перекрытие (overload) необходимо только для тех методов, которые были объявлены как virtual или dynamic выше по дереву классов.

с точностью до наоборот.
overload - для одинаковых имен в одном модуле.
override - для изменения виртуальных (динамических) у наследника.

[alekola]

Спасибо всем за ответы.