Программа, хранящяя класс

[f3nix]

Здравствуйте, уважаемые программисты! Я пока только учусь на прогр.
И мне нужна ваша помощь.
Препод дал такое вот задание:
сделать любую прогу, но чтоб там был создан свой собственный класс...
и чтоб туда входило - наследование, инкапсуляция и полиморфизм.
Если вам не трудно, помогите пожалуйста.

С Уважением, Роман!

[Hollander]

на каком языке?

[kommunist]

хотя бы знать что она должна делать
а то напиши, а что незнаю


хотелось бы поконкретней

[f3nix]

Пишем на Delphi. Программа может быть любая. Ну, допустим хотя бы про "Монитор каталогов".
Он должен делать:
1. Проверять каталог на предмет добавления, удаления, переименования и изменения файлов в каталоге, используя для этого отдельный поток.
2. Уведомлять основной поток(главную форму) об изменениях.
3. Вести простейший протокол своей работы.
4. Определять имя изменившегося файла.
5. Сворачиваться в виде иконки в SysTray.

[f3nix]

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

хотя бы знать что она должна делать
а то напиши, а что незнаю


хотелось бы поконкретней

Пишем на Delphi. Программа может быть любая. Ну, допустим хотя бы про "Монитор каталогов".

[pu4koff]

фига се хотя бы

[Maslan]

Он должен делать:
1. Проверять каталог на предмет добавления, удаления, переименования и изменения файлов в каталоге, используя для этого отдельный поток.
2. Уведомлять основной поток(главную форму) об изменениях.
3. Вести простейший протокол своей работы.
4. Определять имя изменившегося файла.
5. Сворачиваться в виде иконки в SysTray.

Эм..... а сколько семестров ты пропустил?
Почему, собственно спрашиваю:

1. Проверять каталог на предмет добавления, удаления, переименования и изменения файлов в каталоге, используя для этого отдельный поток.

Какой поток? Thread, я надеюсь?
И КАК проверять? " добавления, удаления," - это-то просто - сохранить список файлов папки в TStringList и сравнивать. "изменения" - Тут решения могут колебаться от "сохранить копию файла и потом сравнивать" до "написание собственного драйвера файловой системы". А вот "переименования" тут только ставить хук на системные функции, если нужно именно "переименование". Не верится, что это задание для человека "только начавшего изучать программирование".


А классы в Delphi - ща будут...

[Maslan]

Полный код модуля:
(на форме только одна кнопка и всё)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure PolymorphDemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 TAncestor = class
 private
 protected
 public
   {Виртуальная процедура.}
   procedure VirtualProcedure; virtual;
   procedure StaticProcedure;
 end;
 TDescendant = class(TAncestor)
 private
 protected
 public
    {Перекрытие виртуальной процедуры.}
   procedure VirtualProcedure; override;
   procedure StaticProcedure;
 end;
 TInheritedLabel= class(TLabel)
   public
    constructor Create(Aowner:TComponent);
    destructor Destroy;
 end;

 var
  Form1: TForm1;
  Lab:TInheritedLabel;
implementation

{$R *.dfm}
  { TAncestor }
   
 procedure TAncestor.StaticProcedure;
 begin
   ShowMessage('Ancestor static procedure.');
 end;
   
 procedure TAncestor.VirtualProcedure;
 begin
   ShowMessage('Ancestor virtual procedure.');
 end;

  procedure TDescendant.StaticProcedure;
 begin
   ShowMessage('Descendant static procedure.');
 end;
   
 procedure TDescendant.VirtualProcedure;
 begin
   ShowMessage('Descendant override procedure.');
 end;

procedure TForm1.Button1Click(Sender: TObject);

begin
  PolymorphDemo;
  Lab:=TInheritedLabel.Create(Form1); //Создаём новый объект-- наследник TLabel
                                      //но у него цвет текста по умоланию зелёный
   Lab.Caption:='Проверка наследования';//И посмотрим, появился ли у нас на форме Label
                                     //Если появился, значит наследование работает.

     { Lab.FLayout:=tlTop; }
 // эта строчка ^^^^^^^^ если раскомментировать вызовет ошибку, т.к. свойство
// FLayout объявлено как private в
//   TGraphicControl(потомком которого является
//    TCustomLabel(потомком которого является
//      TLabel(потомком которого является наш TInheritedLabel)))
//  и недоступно вне класса.



//процедура procedure SetAutoSize(Value: Boolean); override;
// объявлена как protected и будет доступна потомкам класса
      Lab.SetAutoSize(True);


//Свойство     property Caption;   объявлено "public" - и будет доступно всем.
      Lab.Caption:='Инкапсуляция работает';

end;

procedure TForm1.PolymorphDemo;
var
   MyObject1: TAncestor;
   MyObject2: TAncestor;
 begin
   MyObject1 := TAncestor.Create;
   MyObject2 := TDescendant.Create;
   try
     MyObject1.StaticProcedure;  //Тут сработает static-процедура предка
     MyObject1.VirtualProcedure; // тут - виртуальная
     MyObject2.StaticProcedure;  // Тут опять-таки static ПРЕДКА, т.к. мы её не переопределяли
     MyObject2.VirtualProcedure; // А тут виртуальная потомка (мы её
                                 //переопределили с помощью override
   finally
     MyObject1.Free;
     MyObject2.Free;
   end;

end;

{ TInheritedLabel }

constructor TInheritedLabel.Create(Aowner: TComponent);
begin
 inherited Create(Form1);
 Self.Name:='Inherited_Lablel';
 Self.Font.Color:=clGreen;
 Self.Font.Size:=40;
 Self.Left:=20;
 Self.Top:=50;
 Self.Parent:=Form1;
end;

destructor TInheritedLabel.Destroy;
begin
 inherited Destroy;
end;

end.

Демонстрирует и инкапсуляцию и наследование и полиморфизм.

А с "хотя бы монитор" - это ты погорячился явно....

[f3nix]

MAslan, большое спасибо хотя бы за это. В твоем коде я разобрался лучше чем у преподов.

[Maslan]

Да не за что. Если что-то непонятно, то спрашивай - не стесняйся =)
"инкапсуляцию и наследование и полиморфизм" - что слова значат знаешь?