Скрыть форму, но загрузить первой.

[viks1]

Сообщение от =master=

Создаете объект типа TStringList а ссылку на него помещаете в переменную __sl.
Это не переход а указание, через свойство Delimeter указываем какой собственно Delimeter использовать в дальшейшем.
Далее вы инициализируете свойство DelimitedText, который и будет использовать тот самый Delimeter.
А проверять надо потом, как - описано по ссылке выше.

Спасибо) Я думаю здесь ясно все расписано, и теперь дальше самому надо все понимать и разбираться)
Остальное зависит только от меня)

[viks1]

Сообщение от =master=

Но на самом деле и это все ерунда. надо юзать xml, с ним проще и понятнее.

Это что то новенькое)))

[=master=]

Да нет, xml стар, суперстар.

Создаете файл users.xml, примерно следующего содержания:
<users>
<user login="admin" password="1234" />
<user login="admin2" password="1234" />
<user login="admin3" password="1234" />
</users>

Далее грузите его в программе:
var
__doc: IXMLDOMDocument; // импортировать только tlb надо
__node : IXMLDOMNode;
begin

__doc := CreateOleObject('Msxml2.DOMDocument ') as IXMLDomDocument;
__doc.load('users.xml');

Далее поиск

__node := __doc.selectSingleNode(Format('/users/user[@login="%s"]', Edit.Text));
if (__node = nil)
// нет такогоюзера
else if (__node.Attributes["password"].value <> Edit2.Text)
// пароль неправильный
else
// добро пожаловать

Можно конечно проверку пароля объединить в 1 запрос xpath, но так для наглядности.

Опять таки delphi под рукой нет, все по памяти...

[viks1]

Сообщение от =master=

Да нет, xml стар, суперстар.

Создаете файл users.xml, примерно следующего содержания:
<users>
<user login="admin" password="1234" />
<user login="admin2" password="1234" />
<user login="admin3" password="1234" />
</users>

Далее грузите его в программе:
var
__doc: IXMLDOMDocument; // импортировать только tlb надо
__node : IXMLDOMNode;
begin

__doc := CreateOleObject('Msxml2.DOMDocument ') as IXMLDomDocument;
__doc.load('users.xml');

Далее поиск

__node := __doc.selectSingleNode(Format('/users/user[@login="%s"]', Edit.Text));
if (__node = nil)
// нет такогоюзера
else if (__node.Attributes["password"].value <> Edit2.Text)
// пароль неправильный
else
// добро пожаловать

Можно конечно проверку пароля объединить в 1 запрос xpath, но так для наглядности.

Опять таки delphi под рукой нет, все по памяти...

это реально круто)
Я просто поражен...
В принципе, вы правы, так немного проще. Мне надо просто разобраться в этом объекте, xml...
Спасибо)
Афигеть... столько вариантов, и ни по одному нет знаний...
Надо учится)
Спасибо вам за помощь)))