Тема: Задания для начинающих
Показать сообщение отдельно
  #7  
Старый 20.10.2009, 07:19
Аватар для AleD
AleD AleD вне форума
Активный
  
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию
текстовый редактор - был моим тренажёром поначалу делал по инструкции, затем сам за пол часа, потом попробовал на скорость, за 6 минут можно сделать (правда давненько уже это делал) полный аналог MS Notepad.
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием