[kiberpups]

Здравствуйте товарищи! Вот решил обратиться к вам с нелёгкой для меня задачей... задали курсяк... текстовый редактор написан... НО нужно в него внедрить свой класс... ну хоть убейте непонимаю я в них... большая просьба помоч... во вложении код редактора(посчитал что будет неприлично большой код сюда просто вставить)... предположим что нужно создать класс кнопка... подскажите как сделать!

[The Shadow]

А вот такой класс не подойдет?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

interface    type   TOnOpen = procedure (FileName: String) of object;   TMyTextFile = class     FFileName: String;     FOnOpen: TOnOpen;     FMemo: Pointer;     constructor Create(FileName: String; Memo: Pointer);     destructor Destroy; override;   public     property Memo: Pointer read FMemo write FMemo; //Свойство - указатель на TMemo     property OnOpen: TOnOpen read FOnOpen write FOnOpen; //Событие происходящее при открытии файла     property FileName: String read FFileName write FFileName; //Свойство, в котором хранится имя открываемого файла     procedure OpenFile;   end;    implementation    { TMyTextFile }    constructor TMyTextFile.Create(FileName: String; Memo: Pointer); //Создаем объект, FileName - имя файла, Memo - указатель на объект TMemo, например @Memo1 begin inherited Create; FFileName:=FileName; FMemo:=Memo; end;    destructor TMyTextFile.Destroy; //Уничтожаем объект begin inherited; end;    procedure TMyTextFile.OpenFile; //Загружает файл FFileName в FMemo^ begin TMemo(Memo^).Lines.LoadFromFile(FFileName); FOnOpen(FFileName); end;

Чтобы загрузить, например в Memo1 файл C:\T.txt надо:

Код:

1 2 3 4 5 6 7 8

var MyTextFile: TMyTextFile; //Объявить переменную ... begin MyTextFile:=TMyTextFile.Create('C:\T.txt', @Memo1); //Создать объект, в данном случае в Memo1 будет загружет файл C:\T.txt MyTextFile.OpenFile; //Загрузить содержимое файла в Memo MyTextFile.Destroy; //Уничтожить объект end;

Событие OnOpen будет происходить каждый раз, когда запускается процедура OpenFile

[kiberpups]

Спасибо громадное, думаю подойдёт... буду пробовать!