Открытие формы при отсутствии файла.

=Kostanakis= · 27.08.2011, 16:24

Вопрос: как заставить приложение открывать форму только при отсутствии определенного файла?

VeTaL_UA · 27.08.2011, 17:06

В обработчике событий появления формы прописать проверку нахождения определённого файла в определённой папке.
Код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 if FileExists('blabla.txt')=False then
  begin
  Form1.Show;
  end
 else
  begin
  Close;
  end;
end;

Данный код проверяет нахождение файла blabla.txt в папке с данной программой.

=Kostanakis= · 27.08.2011, 18:16

Спасибо, видимо не там if then else использовал.

**Mebius** · 28.08.2011, 20:45

Код:

if FileExists('blabla.txt')=False then

так практичней имхо:

Код:

if not FileExists('blabla.txt') then

=Kostanakis= · 31.08.2011, 15:52

Мёбиус, вот до этого моего интеллекта не хватило) спасибо)

Добавлено через 5 минут

Код:

ListBox1.Items.Add('Проверка данных');
if not FileExists('С:\login.ini') then
Form6.ShowModal
else
Form6.Close;
begin
Ini:=TIniFile.Create('С:\login.ini');
Nick:= Ini.ReadString('Logindata','Nick',Nick);
Pass:= Ini.ReadString('Logindata','Pass',Pass);
Server:= Ini.ReadString('Logindata','Server',Server);
end;

И все равно всплывает шестая форма, хоть файл и существует.
Почему я

?

sasha- · 24.04.2012, 23:38

Цитата:

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

Мёбиус, вот до этого моего интеллекта не хватило) спасибо)

Добавлено через 5 минут

Код:

ListBox1.Items.Add('Проверка данных'); if not FileExists('С:\login.ini') then Form6.ShowModal else Form6.Close; begin Ini:=TIniFile.Create('С:\login.ini'); Nick:= Ini.ReadString('Logindata','Nick',Nick); Pass:= Ini.ReadString('Logindata','Pass',Pass); Server:= Ini.ReadString('Logindata','Server',Server); end;

И все равно всплывает шестая форма, хоть файл и существует.
Почему я?

что бы ты не писал хранить пароли так не безопасно шифруй их чтоли