Семь чудес и два фокуса на Дельфи
Категория реферата: Рефераты по информатике, программированию
Теги реферата: текст для изложения, оформление доклада титульный лист
Добавил(а) на сайт: Бурдаков.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11
type
TSimpleMethod = procedure of object;
function GetWithSelf(const pr: TSimpleMethod): TObject;
begin
Result := TMethod(pr).Data;
end;
Figure 18.
Как видите, функция принимает указатель на метод, а возвращает обьект, являющийся владельцем этого метода. Но каким же методом мы воспользуемся? Например, метод Free, ведь его история восходит еще к самому TObject'у. Теперь проверим себя:
procedure TfrmAllMiracles.btnWithSelfTrickClick(Sender: TObject);
begin
with TStringList.Create do
try
CommaText := '1,2,3,4,5,6,7,8,9,0';
ShowText(TStringList(GetWithSelf(Free)));
finally
Free;
end;
end;
Figure 19.
Проверьте - работает.
Скачали данный реферат: Степанида, Ураков, Соболевский, Цур, Fotinija, Марин, Viva.
Последние просмотренные рефераты на тему: сочинения по литературе, курсовая работа по управлению, онлайн решебник, конспект по математике.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11