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

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

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.

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

Перевод контента на русский язык:

Это проект Delphi, содержащий форму (FRForm) с одиночным кнопкой и контролем мемо. Когда кнопка кликается, он загружает ресурс из исполняемого файла в контроле мемо.

Давайте разбить, что код делает:

1. Процедура Button1Click вызывается при клике кнопки.
2. Создается объект TResourceStream, чтобы загрузить ресурс из исполняемого файла. Имя ресурса - 'TFORM1', а тип - RT_ RCDATA.
3. Создается объект TMemoryStream, чтобы хранить загруженный ресурс.
4. Используется процедура ObjectBinaryToText, чтобы конвертировать двоичные данные в ресурсном потоке в текст, который затем хранится в паметном потоке.
5. Линии контрола мемо загружаются из паметного потока с помощью метода LoadFromStream.

Ресурс 'TFORM1' вероятно является файлом определения формы (DFM), содержащим layout и контролы другой формы. Загрузка этого ресурса в контроле мемо фактически копирует содержимое этой другой формы в эту.

Вот некоторые предложения по улучшению:

• Вместо жесткого кодирования имени ресурса ('TFORM1') и его типа (RT_ RCDATA), рассмотрите использование константы или файла настройки для хранения этих значений. Это бы сделало их изменение или изменение более простым без необходимости редактирования кода.
• Рассмотрите добавление обработки ошибок, чтобы обрабатывать случаи, когда ресурс не найден, или если возникли проблемы с загрузкой данных в контроле мемо.
• Если цель - отображать содержимое другой формы в этой, рассмотрите более элегантное решение,such as создание нового экземпляра другой формы и отображение его в панели или контейнере вместо копирования его содержимого напрямую.

В отношении файла проекта (DFM), он не предоставлен здесь. Если вы хотите загрузить целый проект, я с радостью помогу с этим! Просто сообщите мне, что вам нужно.

В статье описывается код на Delphi, который позволяет загрузить текст из ресурса Windows в мемуарное поле TForm1.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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