Показать сообщение отдельно
  #8  
Старый 08.06.2011, 12:18
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Ну тогда уж лучше не новый класс создавать, а старый доработать:
Код:
....
THelperEdit = class helper for TEdit
 procedure LoadFromFile(FileName: String);
end;
....

procedure THelperEdit.LoadFromFile(FileName: String);
begin
 with TStringList.Create
 do try
       LoadFromFile(FileName);
       Self.Text := Text;
     finally
      Free;  
     end;
end;

И все, теперь TEdit будет считать что у него есть родной метод загрузки из файла.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием