Цитата:
|
Сообщение от lmikle
Ну и в чем проблема?
Код:
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х методов и написать поцку регистрации компонента. |
Прошу прощения за собственную тупость, а что значат эти три метода и поцка?
