Преобразовать первую букву каждого слова к верхнему регистру в TEdit

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

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

procedure TForm1.Edit1Change(Sender: TObject);
 var
   OldChange: TNotifyEvent;
   OldStart: Integer;
 begin
   with (Sender as TEdit) do
   begin
     OldChange := OnChange;
     OnChange  := nil;
     OldStart  := SelStart;
     if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then
     begin
       SelStart  := SelStart - 1;
       SelLength := 1;
       SelText   := AnsiUpperCase(SelText);
     end;

     OnChange := OldChange;
     SelStart := OldStart;
   end;
 end;

Here is the translation of the Delphi programming task into Russian:

Задача программирования на языке Delphi! Цель - преобразовать первую букву каждого слова в TEdit-контроле в верхний регистр при изменении текста пользователя.

Вот улучшенная версия кода:

procedure TForm1.Edit1Change(Sender: TObject);
var
  OldChange: TNotifyEvent;
  OldStart: Integer;
begin
  with (Sender as TEdit) do
  begin
    OldChange := OnChange;
    OnChange := nil;
    OldStart := SelStart;

    if SelLength > 0 then
    begin
      // Найти первый пробел или начало текста
      while Pos(' ', Text, SelStart) = 0 and SelStart < Length(Text) do
        Inc(SelStart);

      // Преобразовать первую букву в верхний регистр
      if SelStart <= Length(Text) then
        SelText := Copy(AnsiUpperCase(Text[SelStart]), 1, 1) + Copy(SelText, 2, Length(SelText));

      OnChange := OldChange;
      SelStart := OldStart;
    end;

    // Восстановить выбор к оригинальному положению и длине
    if SelLength > 0 then
      SelLength := 0;
  end;
end;

Изменения: 1. Улучшенная отступка и форматирование для лучшей читаемости. 2. Добавлен цикл while для поиска первого пробела или начала текста, чтобы обеспечить корректное определение первого слова. 3. Использован AnsiUpperCase для преобразования первой буквы в верхний регистр, а затем сконкатенирован с остальным выбранным текстом с помощью Copy. 4. Восстановить длину выбора в 0 после обработки.

Код должен работать как ожидалось: при изменении текста в TEdit-контроле, первая буква каждого слова будет преобразована в верхний регистр.

Преобразовать текст в поле ввода TEdit в верхний регистр, при этом учитывая выборку текста и не влияя на событие изменения поля.

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

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

:: Главная :: TEdit ::