Помогите с решением функций.

[Nikopol]

Народ, помогите, пожалуйста с Дельфи, очень надо:

1).Написать функцию подсчета количества компонентов на форме заданного класса.

2).Написать функцию, которая возвращает имя класса, объектов которого меньше всего.

3).Реализовать механизм наследования с переопределением функции (virtual) в форме - наследование.

4).Реализовать 2 функции, переопределения в одном модуле в зависимости от входящих параметров (overload).
Нужен просто текст функций. Заранее благодарен.

[pu4koff]

1. где-то такая или подобная задача уже здесь была
2. по аналогии с предыдущей. имя класса кажеца определяется свойством ClassName класса TClass
3. в родителе пишешь например:

...
public
  procedure Proc; virtual;
end;

в потомке:

public
  procedure Proc; override;
end;

ну соответственно обработчик уже какой надо думаю сам напишешь
4. Кажеца так (сам этим давно не занимался уже просто) описываешь процедуры:

procedure Proc(i: integer); overload;
procedure Proc(r: real); overload;

ну а реализация как у "обычных" пишеца

[Nikopol]

2 Pu4koff:
Пожалуйста, очень прошу, не мог бы поподробнее с 3 и 4???
И как найти 1?

[Jeni]

Сообщение от Nikopol

1).Написать функцию подсчета количества компонентов на форме заданного класса.

А что значит "заданного класса"? Как он будет задан - в виде строки, или в виде ссылки на класс?
Само количество компонентов на форме определяется свойством формы ComponentCount (например, X := Form1.ComponentCount)

Сообщение от Nikopol

2).Написать функцию, которая возвращает имя класса, объектов которого меньше всего.

Если под "объектами" здесь подразумеваются не только компоненты, а вообще любые потомки TObject, то нужно хранить полный список всех объектов. Только тогда можно будет посчитать их количество для каждого класса (и выбрать миниамальное). В программе есть такой список?

[Jeni]

Сообщение от Nikopol

3).Реализовать механизм наследования с переопределением функции (virtual) в форме - наследование.

TOne = class
  function Fun(X: Integer): Boolean; virtual;
end;

TTwo = class(TOne)
  function Fun(X: Integer): Boolean; override;
end;

function TOne.Fun(X: Integer): Boolean;
begin
  Result := X > 0;
end;

function TTwo.Fun(X: Integer): Boolean;
begin
  Result := X < 0;
end;

[Jeni]

Сообщение от Nikopol

4).Реализовать 2 функции, переопределения в одном модуле в зависимости от входящих параметров (overload).

function Func1(X: Integer): string; overload;
begin
  Result := IntToStr(X);
end;

function Func2(X: Double): string; overload;
begin
  Result := FloatToStr(X);
end;

[Nikopol]

2 Jeni:
В первом класс задан как строка.
Во втором, подразумеваются вообще любые потомки, и в проге такой список скорее всего есть.