다음의 예문을 보아 주십시오.

다음의 예문은 델파이 프로그램에 암호를 넣기 위해서 작성한 것입니다.





procedure Toneform.openbuttonClick(Sender: TObject);

var

Myini : Tinifile;

begin

Myini := Tinifile.Create(ExtractFilePath(Application.ExeName) + 'USER.INI');

Myini.WriteString('USER', 'USERNAME', nameedit.Text);

Myini.WriteString('USER', 'PASSWORD', saedit.Text);

Myini.Free

end;



procedure Toneform.FormActivate(Sender: TObject);



var

Myini : Tinifile;

begin

Myini := Tinifile.Create(ExtractFilePath(Application.ExeName) + 'USER.INI');

nameedit.Text := Myini.ReadString('USER', 'USERNAME', ''); // 디폴트값은 공백

saedit.Text := Myini.ReadString('USER', 'PASSWORD', '');

Myini.Free;



end;



1) 위의 프로그램을 시행하고 암호가 맞으면 주 메인 폼으로 넘어가게 하려고 합니다.

그런데 생각이 잘 나지 않는 군요? 어떻게 하면 좋을 까요?

2) 그리고 유저 네임과 패스워드를 여러개 주려고 합니다. 어떻게 하는 것이 가장 좋은

방법 이겠습니까?

3) 그리고 생성된 user.ini 파일을 보니

[USER]

USERNAME=

PASSWORD=

요렇게 만 나와 있습니다. 여기에 어떻게 하라는 것인지 모르겠습니다.



다 해달라는 것 같아 정말 죄송 하지만 도통 모르겠군요.

답변 부탁드립니다.

참고로 저의 암호 폼은 USEREDIT box 1개, Password Editbox 1개, 그리고 연결 버튼 및

종료 버튼이 하나씩 있는 폼입니다. 원래 계획은 USEREDIT와 Password Editbox에 id와

Password에 아이디 및 암호를 하나씩 넣고 연결 버튼을 누르면 다음의 주메인 화면으로

넘어가면서 암호 폼은 사라지도록 하려는 것 이었습니다.........ㅡ.ㅡ