에디트 박스에 사용자가 문자열을 입력하고 버튼을 누르면
레지스트리에 입력되어 있는 값과 입력한 문자열을 비교하여 값이 같으면
작업을 진행하는 것을 만드려고 합니다
레지스트리에는 문자열 값이 이미 저장되어 있거든요
if edit1.text = 레지스트리에입력된문자열값 then
begin
......
이런식으로 하려고 하는데요
"레지스트리에입력된문자열값" 을 어떻게 표현해야 될지 모르겠습니다
저는 Software라는 키에 Word라는 문자열을 만들고 값을 abc라고 주었거든요
그러니까 edit1.text에 abc라고 입력을 하면 Word값과 비교를 해서 문자열이 같으니까
작업이 진행되게 하려는 것입니다
if edit1.Text = Reg.GetValueNames('SoftwareWord') then ........
이런식으로 했는데 Incompatible types: 'TStrings' and 'String' 이런 에러가
나네요~~~~~
> 에디트 박스에 사용자가 문자열을 입력하고 버튼을 누르면
> 레지스트리에 입력되어 있는 값과 입력한 문자열을 비교하여 값이 같으면
> 작업을 진행하는 것을 만드려고 합니다
> 레지스트리에는 문자열 값이 이미 저장되어 있거든요
이렇게 한번 해보세요...
procedure 원하는 이벤트...;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE(이것은 변경하셔야겠지요);
Reg.OpenKey(RegDir, True);
if edit1.Text = Reg.ReadString('레지스트리에입력된문자열값') then
begin
코딩...
end;
end;
여기서 uses절에 Registry가 있어야 합니다.(c에서 헤더화일같은 거같지요)