procedure TForm2.sBitBtn1Click(Sender: TObject);
 
var dir,log,pas:string;
a,i:Integer;
dos:Boolean;
begin
dos:=False;
getdir(0,dir);
dir:=dir+'\pass.txt';
Memo1.Lines.LoadFromFile(dir);
a:=Memo1.Lines.Count;
for i:=0 to a-1 do
begin
  log:=Copy(Memo1.Lines[i],0,Pos(':',Memo1.Lines[i])-1);
  pas:=Copy(Memo1.Lines[i],Pos(':',Memo1.Lines[i])+1, Length(Memo1.Lines[i]));
  if (Edit1.text=log) and (Edit2.text=pas) then
  dos:=True;
  end;
  if dos then
 
  Form1.Show
  else
  Form4.Show;
 
end;

перед запуском Form1 на котором сама прога. т.е. пока не заполниш form2 правильно Form1 не откроется.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.10.2011, 13:54

Ответы с готовыми решениями:

Form1 and Form2
В Form1 есть процедура в которой изменяются свойства формы можли ли сделать так чтоб при обращение...

как открыть form2 сразу после открытия form1?
программа после старта открывает сразу form1. как мне сделать что бы открывалась сразу и form2 в...

как сделать ЕСЛИ тру, ТО form1.hide AND form2.show ELSE showmessage
Сделал так if (edit1.Text=a) and (edit2.Text=s) then form1.hide and form2.show else...

Form1 := TForm1.Create(..); Form1.Show;
Доброе время суток. Хочу написать приложение с интерфейсом MDI. Естественно, для главной формы...

	20.10.2011, 13:54

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.10.2011, 13:54

Помогаю со студенческими работами здесь

Значёк на form1.caption
К примеру откройте блокнот. Сверху будет надпись- блокнот, а слева значёк блокнота. Как в...

Form1.WindowState := wsMaximized
Подскажите как сделать - что бы форма при запуске раскрывалась во весь экран? (я еще только учусь)

Помещение в DLL - form1.Memo1.Lines.LoadFromFile('file.txt'); и ему подобного.
Доброго времени суток, помогите пожалуйста решить одну проблему мне нужно запхать в DLL библиотеку...

Как внести данные из edit1.text из Form2, в DBGrid на Form1?
как внести данные из edit1.text из Form2, в DBGrid на Form 1

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх