Delphi 7 - Inputbox 사용 방법

Question

프로그램 분 기능에 액세스하려면 InputBox에 암호를 입력해야하는 프로그램을 프로그래밍하고 있습니다. 그러나 입력 상자에서 취소를 클릭하면 프로그램에 오류 메시지가 나타납니다. 그래서 저는 Messagedlg를 통해 당신이 IF를 사용한다는 것을 알고 있기 때문에 제가 어떻게 그 권리를 얻을 수 있는지를 알고 싶었습니다. 하지만 InputBox를 사용하면 어떻게 제대로 할 수 있습니까?

Answer 1

InputBox() 대화가 취소되는 경우 빈 문자열을 반환 예 :

var 
    Pass: String; 

if InputQuery('Password needed', 'Enter the password:', Pass) then 
begin 
    // use Pass as needed... 
end; 

:

var 
    Pass: String; 

Pass := InputBox('Password needed', 'Enter the password:'); 
if Pass <> '' then 
begin 
    // use Pass as needed... 
end; 

다른 방법으로, 예를 들어, 대화가 취소되었는지 여부를 나타 내기 위해 Boolean을 반환 여부하는 대신 InputQuery()를 사용