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

[viks1]

Сообщение от Dozent

в процедуре Form1.create пишите

Form3.Showmodal;
Form1.hide;

Мне наоборот, надо третью скрыть, а первую показать!
Я писал это... не помогает... открывает и первую и третью...

[viks1]

У меня появилась идея сделать это напрямую с файлом...
Как сделать так что бы я делал проверку построчно в самом Файле без Мемо?

[=master=]

Покажите что в файле находится.

[viks1]

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

Покажите что в файле находится.

В файле находятся логин и пароль.
На нечетной строке Логин
На четной Пароль

Например:

{нулевая строка пустая, так как она не четная ни не четная}
Admin {Login}
1234   {password}

и тд..
Через мемо я делаю проверку с помощью Lines.Strings[<строка>];
А вот как без мемо это сделать?

[=master=]

Вы сами себе проблемы устроили. Переделайте на
Admin=1234
Admin1=1234
Admin2=1234
потом загрузите все в TStringList через DelimitedText/Delimiter
http://www.delphisources.ru/pages/fa...gList.php.html

[viks1]

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

Вы сами себе проблемы устроили. Переделайте на
Admin=1234
Admin1=1234
Admin2=1234
потом загрузите все в TStringList через DelimitedText/Delimiter
http://www.delphisources.ru/pages/fa...gList.php.html

ну вот например, как это сделать?
я объявляю
var S:textfile;
потом бла бла бла....
procedure TForm1.FormCreate(Sender: TObject);
begin

if fileexists('d:\passvord.txt') then begin
assignfile(S, 'd:\passvord.txt');
reset(S);
end;


Что дальше делать?
Как применять TStringList через DelimitedText/Delimiter?

[=master=]

var
   __sl : TStrings;
begin
   __sl : = TStringList.Create();
   try
      __sl.LoadFromFile("d:\passvord.txt");
      __sl.Delimeter : = #13#10;
      __sl.DelimitedText := __sl.Text;
// тут можно проверять логин/пароль

   finally
      __sl.Free;
   end;
end;

Если где ошибка - писал тут...

[viks1]

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

var
   __sl : TStrings;
begin
   __sl : = TStringList.Create();
   try
      __sl.LoadFromFile("d:\passvord.txt");
      __sl.Delimeter : = #13#10;
      __sl.DelimitedText := __sl.Text;
// тут можно проверять логин/пароль

   finally
      __sl.Free;
   end;
end;

Если где ошибка - писал тут...

Сейчас я опишу как я понял, если что неправильно по правите меня пожалуйста.

 __sl : TStrings; {это понятно:)}

 __sl : = TStringList.Create(); {Это мы что то создаем как я понял... только что?}

 __sl.Delimeter : = #13#10;  {переход на следующую строку(зачем правда)}

__sl.DelimitedText := __sl.Text; {Каким образом будет идти проверка, если я ввожу данные через Edit.Text?}

[=master=]

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

[=master=]

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