Авторизация пользователя через созданную форму в Delphi

[CyberMax]

Порнография в использовании "ручного" склеивания строк или использования Messagebox? MessageDlg() использует не переведенные названия кнопок.

Порнография в дублировании кода и передаваемых констант. В таких случаях используют методы-оболочки, в которые передается один или два параметра. А в таком вызове еще и стековая передача параметров...

Сравнение булевского значения с True и False моветон.

Считаю, что это религиозный спор.

Посмотри исходники VCL. Там нет сравнений ни с True, ни с False. Догадайся, почему.

sRole := frmLogin.cmbGroup.Items[frmLogin.cmbGroup.ItemIndex]

В обычном Combobox выдаст ошибку при -1 индексе. Такое может быть, если пользователь не выбрал ничего, либо стер значение.

Код: Выделить всё

  cbRole := TComboBox.Create(Self);
  cbRole.Parent := Self;
  cbRole.Items.Add('first role');
  cbRole.Items.Add('second role');
  cbRole.ItemIndex := 1;
  S := cbRole.Items[cbRole.ItemIndex];
  cbRole.ItemIndex := -1;
  S := cbRole.Items[cbRole.ItemIndex];

В первой S будет "second role", во второй - "". А вообще Влад прав и насчет Text, и насчет обращений к контролам.