Доступ

[Ko$]

Здравствуйте подскажите как сделать чтобы при открытии формы в Edit1 и Edit2 стояли "логин" и "пароль" изначально по умолчанию. Вот код в который нужно это вставить. (Хочу сделать если "логин" и "пароль" который по умолчанию то определённые компоненты на форме не активны, а если "логин" и "пароль" из pass.ini то они активны но это я знаю как сделать). Типо расграничение доступа.

procedure TForm3.sBitBtn1Click(Sender: TObject);
 
var dir,log,pas:string;
a,i:Integer;
dos:Boolean;
 
begin
 
dos:=False;
getdir(0,dir);
dir:=dir+'\pass.ini';
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;
  begin
  if dos then
  begin
  Form1.sSpeedButton3.Enabled:=True;
  tmr1.Enabled:=true;
  Form1.Show;
  end
  else
  Form4.Show;
end;
 
end;
 
procedure TForm3.tmr1Timer(Sender: TObject);
begin
Form3.Visible:=false;
end;
 
 
procedure TForm3.FormCreate(Sender: TObject);
begin
Edit1.Text:='stud';
Edit2.Text:='123';<<<<<<Вот надо чтобы это стояло и работало по умолчанию и пускало на другую форму 
 
end;
 
end.

Надеюсь меня поняли)))

[Shouldercannon]

Здравствуйте подскажите как сделать чтобы при открытии формы в Edit1 и Edit2 стояли "логин" и "пароль" изначально по умолчанию.

В событии формы FormShow или через Object Inspector вписываешь, что хочешь в Edit1 и Edit2, или тебе туда надо грузить из *.ini?
Кто так работает с *.ini файлом, в вашем случае обычный *.txt сгодится. В целом вопрос не очень понятен.

[Ko$]

Меня не поняли((( нужно чтобы Edit1 и Edit2 по умолчанию стояли Edit1.Text:='stud';
Edit2.Text:='123'; и чтобы пропускали на другую форму не зависимо от pass.ini

[Shouldercannon]

Ну так правильно

procedure TForm3.FormCreate(Sender: TObject);
begin
Edit1.Text:='stud';
Edit2.Text:='123';<<<<<<Вот надо чтобы это стояло и работало по умолчанию и пускало на другую форму 
 
end;

и чтобы пропускали на другую форму не зависимо от pass.ini

Тогда зачем вы организовали проверку,

if (Edit1.text=log) and (Edit2.text=pas) then
  dos:=True;

если надо показать другую форму в любом случае?

[medved6216]

procedure TForm3.sBitBtn1Click(Sender: TObject);
 
var dir,log,pas:string;
ini : TIniFile;
dos:Boolean;
 
begin
 
dos:=False;
dir:=dir+'\pass.ini';
ini := TIniFile.Create(dir);
log := ini.readstring('Password', 'login', '');
pas := ini.readstring('Password', 'pass', '');
  if (Edit1.text=log) and (Edit2.text=pas) or (Edit1.text='stud') and (Edit2.text='123')  then 
  dos:=True;
{или 
if (Edit1.text=log) and (Edit2.text=pas) then
dos:=True;
if (Edit1.text='stud') and (Edit2.text='123')  then
dos:=True;}
   end;
  begin
  if dos then
  begin
  Form1.sSpeedButton3.Enabled:=True;
  tmr1.Enabled:=true;
  Form1.Show;
  end
  else
  Form4.Show;
end;
 
end;
 
procedure TForm3.tmr1Timer(Sender: TObject);
begin
Form3.Visible:=false;
end;
 
 
procedure TForm3.FormCreate(Sender: TObject);
begin
Edit1.Text:='stud';
Edit2.Text:='123';<<<<<<Вот надо чтобы это стояло и работало по умолчанию и пускало на другую форму 
 
end;
 
end.

как то так)

[Ko$]

Нужно чтобы они отдельно "проверялись" надо чтобы если зашли через логин и пароль из pass.ini то Form*.sSpeedButton3.Enabled:=True; А если через Edit1.Text:='stud';
Edit2.Text:='123'; то Form*.sSpeedButton3.Enabled:=False;

[medved6216]

if (Edit1.text=log) and (Edit2.text=pas) then
begin
dos:=True;
Form*.sSpeedButton3.Enabled:=True;
end;
if (Edit1.text='stud') and (Edit2.text='123')  then
begin
dos:=True;
Form*.sSpeedButton3.Enabled:=false;
end;

[Ko$]

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

if (Edit1.text=log) and (Edit2.text=pas) then
begin
dos:=True;
Form*.sSpeedButton3.Enabled:=True;
end;
if (Edit1.text='stud') and (Edit2.text='123')  then
begin
dos:=True;
Form*.sSpeedButton3.Enabled:=false;
end;

то что надо спасибо medved6216

Видимо, мои увещевания и штрафы на вас не действуют... А напрасно...
Зачем вы отвечаете с цитированием предыдущего поста ?
Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением ?
За оверквотинг у нас штрафуют, имейте это ввиду.
Дабы не нарушать правила раздела, внимательно их почитайте:
http://programmersforum.ru/announcement.php?f=2