ооп free pascal

[demonara]

помогите разобраться с парой директив
{$MODE OBJFPC}
unit stringstore;
interface
uses sysutils;

type

TStoreString=class
procedure Put(const S:string); virtual;abstract;
{вот первые 2 virtual;abstract; если я правильно понял первая объявляет что метод виртуален а вторая говорит что он абстрактен а значит обязательно должен быть переопределён в потомке поправте если я не прав}
function Get:string; virtual; abstract;
end;

TStoreStringM = class(TstoreString)
constructor Create(const s:string);
procedure Put(const s:string);override;
{вот ещё одна директива override вот про неё я вообще не чего не знаю если можно объясните поподробнее и понятным языком }
function Get:string; override;
private
str:string;
end;

implementation

constructor TStoreStringM.Create(const s:string);
begin
inherited create;
str:=s;
end;

procedure TstoreStringM.put(const s:string);
begin
str:=s;
end;

function TstoreStringM.Get:string;
begin
result:=str;
end;

end.

[Alex Cones]

http://delphibasics.ru/Class.php
http://delphibasics.ru/Virtual.php
http://delphibasics.ru/Dynamic.php
http://delphibasics.ru/Overload.php
http://delphibasics.ru/Override.php
http://delphibasics.ru/Abstract.php

[Сергeй]

> должен быть переопределён в потомке поправте если я не прав

Прав.
ТОлько не "переопределен", а "перекрыт"

Одноименный метод потомка со спецификатором override как раз и перекрывает виртуальный метод предка, ВНЕ зависимости абстрактен ли он.

Абстрактность метода подразумевает НЕвозможность его вызова, если он не перекрыт ни в одном из потомков.

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

Ущучил суть ?)

[demonara]

спасибо!!!

[demonara]

{$mode objfpc}
unit ispersonal;
interface
uses infosys;
type

TISPersonal = class
private
fpersons:array of TPeople;
public
constructor Create();
destructor Destroy(); override;
function add(p:TPeople):TPeople;
function delete(P:TPeople):TPeople;
function indexof(p:tpeople):integer;
function getPersons(index:integer):TPeople;
function getPersonCount():integer;
function getPeoples(index: integer):TPeople;
function getStudents(index: integer):TStudent;
function getStudentCount:integer;
function getFilter(typePerson: string; searchfield, value: string; index:integer):TPeople;
function getFilterCount(typePerson: string; searchfield, value: string; index:integer):integer;

procedure DestroyPersone(P:TPeople);
procedure DestroyAll();
procedure DeleteAll();
property peoples[index: integer]:TPeople;
property PeopleCount:integer;
property Students[index: integer]:TStudent;
property StudentCount:integer;
property Persone[index: integer]:TPeople;
property PersonCount:integer;
property Filter[typePerson:integer; SearchField: string; value: variant; index: integer]:TPeople;
property FilterCount[typePerson:integer; SearchField: string; value: string]:integer;
{ объясните что в каждом случае делает св-во property }

fullsearch:boolean;
end;

implementation
constructor TISPersonal.create();
begin
inherited Create();
setlength(fpersons, 0);
end;

destructor TISPersonal.destroy();
begin
setlength(fpersons, 0);
inherited destroy;
end;

function TISPersonal.indexof(p:tpeople):inte ger;
var i: integer;
begin
result:=-1;
for i:=0 to length(fpersons)-1 do
if p = fpersons[i] then begin
result:=i;
exit;
end;
end;

function TISPersonal.add(p:TPeople):TPeople;
begin
if indexof(p)<0 then begin
setlength(fpersons, length(fpersons)+1);
fpersons[length(fpersons)-1]:=P;
end;
result:=p;
end;

function TISPersonal.delete(P:TPeople):TPeop le;
var index,i: integer;
begin
result:=p;
index:=indexof(p);
if index < 0 then exit;
for i:=index+1 to length(fpersons)-1 do fpersons[i-1] := fpersons[i];
setlength(fpersons, length(fpersons)-1);
end;

procedure TISPersonal.DestroyPersone(P:TPeopl e);
begin
delete(p);
p.destroy();
end;

procedure TISPersonal.DeleteAll();
begin
setlength(fpersons, 0);
end;

procedure TISPersonal.DestroyAll();
var i:integer;
begin
for i:=0 to length(fpersons)-1 do fpersons[i].destroy();
deleteall();
end;

function TISPersonal.getPersons(index:intege r):TPeople;
begin
result:=fpersons[index];
end;

function TISPersonal.getPersonCount():intege r;
begin
result:=length(fpersons);
end;

function TISPersonal.getPeoples(index: integer):TPeople;
var i:integer;
begin
for i:=0 to length(fpersons)-1 do begin
if fpersons[i].id = {TPeople.id}'Lichnost' then begin
dec(index);
if index<0 then begin result:=fpersons[i]; exit; end;
end;
end;
result:=nil;
end;

function TISPersonal.getStudents(index: integer):TStudent;
var i:integer;
begin
for i:=0 to length(fpersons)-1 do begin
if fpersons[i].id = TStudent.id then begin
dec(index);
if index<0 then begin result:=TStudent(fpersons[i]); exit; end;
//result:=fpersons[i] as TStudent;
end;
end;
result:=nil;
end;

function TISPersonal.getStudentCount:integer ;
var i,index:integer;
begin
result:=0;
index:=0;
for i:=0 to length(fpersons)-1 do begin
if fpersons[i].id = TStudent.id then begin
inc(index);
end;
end;
end;

function TISPersonal.getFilter(typePerson: string; searchfield, value: string; index:integer):TPeople;
var s:string; i:integer;
begin
for i:=0 to length(fpersons)-1 do begin
if (typePerson = '') or (typePerson = fpersons[i].id) then begin
s:=fpersons[i].GetField(searchfield);
if fullsearch then begin
if (s=value) then begin
dec(index);
if index<0 then begin result:=fpersons[i]; exit; end;
end;
end
else begin
if(pos(value, s)<>0) then begin result:=fpersons[i]; exit; end;
end;
end;
end;
end;

function TISPersonal.getFilterCount(typePers on: string; searchfield, value: string; index:integer):integer;
var s:string; i:integer;
begin
result:=0;
for i:=0 to length(fpersons)-1 do begin
if (typePerson = '') or (typePerson = fpersons[i].id) then begin
s:=fpersons[i].GetField(searchfield);
if fullsearch then begin
if s=value then begin inc(result);
end;
end
else begin
if pos(value, s)<>0 then inc(result);
end;
end;
end;
end;

end.

[Сергeй]

> может кто нибуть объяснить

"Нибуть" я могу.

> директива override вот про неё я вообще не чего не знаю

Здрасте вам фаберже !)

Я кому, спрашивается, в 1-м ответе пыхтел-старался объснить на огурцах суть этого спецификатора ?)

[demonara]

Сообщение от Сергeй

> может кто нибуть объяснить

"Нибуть" я могу.

> директива override вот про неё я вообще не чего не знаю

Здрасте вам фаберже !)

Я кому, спрашивается, в 1-м ответе пыхтел-старался объснить на огурцах суть этого спецификатора ?)

за первый ответ большое спасибо здесь уже другой вопрос если можеш объясни буду признателен

[Сергeй]

Стучи в ICQ.