• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

подскажите как создать поле для ввода пароля

  • Автор темы Kitty
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

Kitty

Подскажите, пожалуйста, есть ли в C++ Builder уже встроенный элемент типа Едита, чтобы при вводе в нем отображались звездочки? :)
 
M

morpheus

Для: Kitty
Берёте TEdit и меняете свойство PasswordChar с #0 на *, вот и будет вам введённые символы отображдаться в виде звездочки *

Use the PasswordChar property to create an edit control that displays a special character in place of any entered text. If PasswordChar is set to the null character (ANSI character zero), the edit control displays its text normally. If PasswordChar is any other character, the edit control displays PasswordChar in place of each character typed. PasswordChar affects the appearance of the edit control only. The value of the Text property reflects the actual characters that are typed.
 
K

Kitty

А как можно сверять пароль с учетом регистра?
у меня делается скл-запрос к базе на аксес. но регистр в этом запросе не учитывается. как его учесть можно?
 
M

morpheus

Для: Kitty
StrComp function
Compares two strings with case sensitivity .

Код:
The following example uses two edit controls and a button on a form. When the button is clicked, the text in the edit controls is compared.	

uses SysUtils; 
...

procedure TForm1.Button1Click(Sender: TObject);	
var	Msg: string;	
CompResult: Integer; 
begin	
Msg := Edit1.Text;	
CompResult := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));	
if CompResult < 0 then	 
Msg := Msg + ' is less than '	
else if CompResult > 0 then	 
Msg := Msg + ' is greater than '	
else	 
Msg := Msg + ' is equal to '	
Msg := Msg + Edit2.Text;	
ShowMessage(Msg); 
end;
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!