Ограничение длины и количества строк компонента Memo

Delphi , Компоненты и Классы , TMemo и TRichEdit

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  public
    MaxCharsPerLine, MaxLines: Integer;
    function MemoLine: Integer;
    function LineLen(r: Integer): Integer;
    function NRows: Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.NRows: Integer;
begin

  with Memo1 do
    Result := 1 + SendMessage(Handle, EM_LINEFROMCHAR, GetTextLen - 1, 0);
end;

function TForm1.LineLen(r: Integer): Integer;
var
  r1, r2: Integer;
begin

  with Memo1 do
  begin
    r1 := SendMessage(Handle, EM_LINEINDEX, r, 0);
    if (r > NRows - 1) then
      r2 := SendMessage(Handle, EM_LINEINDEX, r + 1, 0) - 2 {-CR/LF}
    else
      r2 := GetTextLen;
  end;
  Result := r2 - r1;
end;

function TForm1.MemoLine: Integer;
begin

  with Memo1 do
    Result := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  MaxCharsPerLine := 8;
  MaxLines := 4;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin

  with Memo1 do
  begin
    case Key of
      ' '..#255: if (LineLen(MemoLine) >= MaxCharsPerLine) then
          Key := #0;
      #10, #13: if (NRows >= MaxLines) then
          Key := #0;
      #8: if (SelStart = SendMessage(Handle, EM_LINEINDEX, MemoLine, 0)) then
          Key := #0;
    end;
  end;
end;

end.

Привет! Я переведу текст на русский язык.

Это модуль Delphi, содержащий форму с компонентом memo и несколько процедур для ограничения длины строк и количества строк в memo.

Вот подробное описание функций:

1. Тип TForm определяет форму с двумя компонентами: Memo1, который является многострочным текстовым полем, а также переменными MaxCharsPerLine и MaxLines, которые хранят максимальное количество символов в строке и максимальное количество строк соответственно.
2. Функция MemoLine возвращает текущую номер строки в memo.
3. Функция LineLen возвращает длину конкретной строки в memo.
4. Функция NRows возвращает общее количество строк (т.е., строк) в memo.
5. Процедура FormCreate вызывается при создании формы и устанавливает начальные значения для MaxCharsPerLine и MaxLines.
6. Процедура Memo1KeyPress вызывается каждый раз, когда нажимается клавиша внутри компонента memo. Она проверяет, должна ли быть разрешена нажатая клавиша на основе следующих условий:
   • Если длина строки превышает максимальное количество символов в строке, она игнорирует нажатие клавиши.
   • Если количество строк превышает максимальное количество строк, она игнорирует нажатие клавиши при нажатии символ новой строки (#10 или #13).
   • Если нажата клавиша Backspace (#8) и курсор находится в начале строки, она игнорирует нажатие клавиши.

Код использует несколько функций Windows API для взаимодействия с компонентом memo: 1. SendMessage используется для отправки сообщений компоненту memo, таких как получение длины текста, индекса строки или строки от начала. 2. EM_... - константы, которые определяют различные сообщения для работы с редактируемыми контролами (например, memos).

В целом, это код обеспечивает основное ограничение количества символов в строке и общего количества строк в memo. Однако он может быть улучшен добавлением дополнительной функциональности, такой как обработка операций вставки или позволение пользователю временно игнорировать ограничения.

Вот некоторые предложения по улучшению: 1. Вместо использования case-записей с условиями if, рассмотрите использование одиночной if-записи, которая проверяет, должна ли быть разрешена нажатая клавиша. 2. Рассмотрите добавление дополнительного контроля и валидации для случаев, когда компонент memo не является полностью инициализированным или при получении недопустимого ввода. 3. Если вы хотите позволить пользователям временно игнорировать ограничения, рассмотрите добавление опции для включения/выключения этого поведения. 4. Вы также можете добавить дополнительную функциональность для обработки операций вставки или других специальных случаев.

Вот измененная версия процедуры Memo1KeyPress, которая использует одиночную if-запись:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  with Memo1 do
  begin
    if (LineLen(MemoLine) >= MaxCharsPerLine) or
       ((NRows >= MaxLines) and (Key in [#10, #13])) or
       ((SelStart = SendMessage(Handle, EM_LINEINDEX, MemoLine, 0)) and (Key = #8)) then
      Key := #0;
  end;
end;

Ограничение длины и количества строк компонента Memo: код на Delphi для ограничения ввода текста в поле ввода.

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

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

:: Главная :: TMemo и TRichEdit ::