델파이에서 case문 사용방법

간단한 예제로 설명을 대신할게요.

참고 하세여...

 

function TestCase(s: string): boolean;
var 
  i: Integer;
begin
  Result := False;
  for i := 1 to Length(s) do
    case s[i] of
      '0'..'9':; //각각 사용 용도에 맞게 처리 ..
      else 
        Exit;  //그외 디폴트 처리..
    end;
  Result := True;
end;

 

 

참 쉽죠잉..ㅎㅎ