Просмотреть текст формы

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

unit FRForm;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Panel1: TPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

ResStr: TResourceStream;

MemStr: TMemoryStream;

begin

ResStr := TResourceStream.Create(

hInstance, ‘TFORM1’, RT_RCDATA);

try

MemStr := TMemoryStream.Create;

ResStr.Position := 0;

ObjectBinaryToText (ResStr, MemStr);

MemStr.Position := 0;

Memo1.Lines.LoadFromStream (

MemStr);

finally

ResStr.Free

end;

end;

end.

Загрузить весь проект

{/codecitation}

Добавить комментарий