Edit 박스의 특정 스트링을 비교하려고 다음과 같이 했습니다.
var
tmpStr : String;
begin
tmpStr := Copy(Edit1.Text, 1,1);
if tmpStr in ['0'..'9'] then
begin
ShowMessage('첫번째 문자는 S이어야 합니다.');
exit;
end;
end;
이때, Char와 String의 타입이 맞지 않는 다는 에러가 발생합니다.
그럼 tmpStr은 한 문자인데, 저 스트링 값을 Char로 어떻게 변환하죠?
혹은, Char '0'... 을 스트링으로 바꾼는 방법은요?
집합에서는 문자열을 사용할 수 없습니다.
아래와 같이 바꾸세요...
begin
if Edit1.Text[1] in ['0'..'9'] then
begin
ShowMessage('첫번째 문자는 S이어야 합니다.');
exit;
end;
end;
^^ 항상 즐코하세요...
초보 wrote:
>
> Edit 박스의 특정 스트링을 비교하려고 다음과 같이 했습니다.
>
> var
> tmpStr : String;
> begin
> tmpStr := Copy(Edit1.Text, 1,1);
> if tmpStr in ['0'..'9'] then
> begin
> ShowMessage('첫번째 문자는 S이어야 합니다.');
> exit;
> end;
> end;
>
> 이때, Char와 String의 타입이 맞지 않는 다는 에러가 발생합니다.
> 그럼 tmpStr은 한 문자인데, 저 스트링 값을 Char로 어떻게 변환하죠?
> 혹은, Char '0'... 을 스트링으로 바꾼는 방법은요?