1nd1g0 писал(а):
Спроси меня - как, чтобы задуматься - зачем?#pas
type
THICounter = class(TDebug)
private
FCounter:integer;
FFirst:boolean;
........
........
constructor THICounter.Create;
begin
inherited Create;
FFirst := true;
end;
2. Зачем, имея точки doNext и doPrev, иметь ещё и непереключаемый программно _prop_Type ???