Цитата:
|
Сообщение от Cheater
Да в том то и дело, что нужно именно компонент, будь он неладен...
Курсовик-хвост, а на носу диплом...
Сам то я ДБА и юниксоид, а в дельфи мало что понимаю 
В ответ конечно же могу помочь чем могу. |
Ну и в чем проблема?
Код:
type
TSearchFiles = class(TComponent)
private
FFiles : TStringList;
FRoot : String;
FIncludeSubfolders : Boolean;
FMasks : TStringList;
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
procedure Execute;
property Files : TStringList read FFiles;
published
property Root : String read FRoot write FRoot;
property IncludeSubfolders : Boolean read FIncludeSubfolders write FIncludeSubfolders;
property Masks : TStingList read FMasks;
end;
Ну и теперь сделать реализацию 3х методов и написать поцку регистрации компонента.