Функциии Delphi удаления начальных и конечных пробелов

Работая со строками в Delphi нам приходиться манипулировать ими, сравнивать, текстовое содержимое переводить в числовое и т.д. Допустим, нам надо ввести в поле пароль. И чтобы не получать при этом ошибок необходимо удалять пробелы с которых начинаются или заканчиваются обрабатываемые данные.

  • Функции Delphi TrimRight - удаляет пробелы справа,
  • Функции Delphi TrimLeft - удаляет пробелы слева,
  • Функции Delphi Trim - удаляет начальные и конечные пробелы.

 установка звездочкиДля закрепления материала создадим приложение, расположим на нем кнопку и компонент Edit. Свойству PasswordChar присвоим значение *.

ввод пароля

У нас должна получиться такая форма, как слева ни рисунке.

Далее нужно сформировать обработчик события кнопки. При правильном вводе пароля нам сообщат что пароль верен, при неправильном, нас тоже об этом проинформируют. Паролем у нас будет цифра ноль. И если случайно мы нажмем пробел то результат от этого не измениться. Так что эту функцию необходимо запомнить.

procedure TForm1.Button1Click(Sender: TObject);
begin
   if (TRIM(Edit1.Text) <> '0') then
       ShowMessage('Не верный пароль')
     else
       ShowMessage('Правильный пароль');
end;

Итог: нами разобраны функции Delphi позволяющие удалять начальные и конечные пробелы.

 

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

Ваш e-mail не будет опубликован. Обязательные поля помечены *