제 질문에 조금 오류가 있었군요..문제는 Edit Component가 한글을
제대로 인식하지 못하는 것 같습니다.
제가 실험한 코드입니다.
(1) if Edit.text = '가' then Num := 1;
(2) if StrCmp(Edit.text, '가') = 0 then Num := 1;
위와 같이 해도 계속 Edit Component에서 '가'는 Integer 값이 아니다
라는 에러가 납니다.
(3) Edit2.text := Edit1.text
위와 같이 하고 Edit1에 '가'를 입력하여도 똑같은 에러가 납니다.
Component의 속성을 바꿔줘야 하는게 아닌가요?
조언 부탁드리겠습니다.
[에러메세지]
=> Project sales.exe raised exception class EConvertError with message
''가'is not a valid integer value'. Process stopped. Use Step or Run
to continue.
var
i : Integer;
begin
i := StrToInt(Edit1.Text);
위와 같은 형식으로 했나요? 질문이 애매해서 답변하기가 어렵군요.
문자열을 숫자로 바꾸기 위해서는 문자열 숫자가 되어야 합니다.
예를들어 '1', '100' 같이요...
일단 함수를 하나 만드세요.
function HanToInt(Han : String) : Integer;
begin
if Han = '가' then result := 1
else if Han = '나' then result := 2;
.
.
.
end;
제가 생각해서 내린 답변이 맞을지 모르겠네요.