BloodFooria: мне такой метод не нравится (но за помощь спасибо)
lmikle: огромное спасибо, форуму и вам + + и ещё раз +
хотел бы добавить таким же новичкам как я что в юзы (uses) нужно добавить MSHTML, ActiveX
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
|