Просмотреть текст формы из запущенной программы

Delphi , Программа и Интерфейс , Формы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
   rs: TResourceStream;
   ms: TMemoryStream;
 begin
   rs := TResourceStream.Create(HInstance, ClassName, RT_RCDATA);
   try
     ms := TMemoryStream.Create;
     try
       ObjectBinaryToText(rs, ms);
       ms.Seek(0, 0);
       memo1.Lines.LoadFromStream(ms);
     finally
       ms.Free;
     end;
   finally
     rs.Free;
   end;
 end;

Статья Просмотреть текст формы из запущенной программы раздела Программа и Интерфейс Формы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Формы ::