Q&A
- 숫자인지의 비교
찾는 문자가 숫자형인지를 알고 싶습니다.
방법을 가르주세요.
if copy(strTemp,1,1) <> ( '1' or ....'0') then
....
else
....
IF 문을 멋있게 처리할수는 없을까요.
not in [1,2,3,4,5,6,7,8,9,0]와 같은 방법은....
부탁드립니다.
방법을 가르주세요.
if copy(strTemp,1,1) <> ( '1' or ....'0') then
....
else
....
IF 문을 멋있게 처리할수는 없을까요.
not in [1,2,3,4,5,6,7,8,9,0]와 같은 방법은....
부탁드립니다.
2
COMMENTS
-
-
초보녀 wrote:
> 찾는 문자가 숫자형인지를 알고 싶습니다.
> 방법을 가르주세요.
>
> if copy(strTemp,1,1) <> ( '1' or ....'0') then
> ....
> else
> ....
>
> IF 문을 멋있게 처리할수는 없을까요.
> not in [1,2,3,4,5,6,7,8,9,0]와 같은 방법은....
>
> 부탁드립니다.
>
제가 사용하는 함수입니다..
참고하세요..
function IsNum(sData: string): Boolean;
const Num = ['0'..'9'];
var
i : Integer;
sDataTmp : string;
begin
Result := True;
sData := Trim(sData);
if sData = '' then Exit;
sDataTmp := '';
for i:=0 to Length(sData) do
if sData[i] not in Num then Exit;
Result := False;
end;
(NOTICE) You must be logged in to comment on this post.
-
- 손진운
- 1999.12.03 20:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 김해중
- 1999.12.03 19:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민오
- •
- 1999.12.03 19:49
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.12.03 23:25김민오 wrote: > 도스BAT파일처럼 델파이에서 한 프로그램을 호출하여 실행하고 그 프로그램이 > 종료되...
-
-
- 주혜진
- 1999.12.03 19:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- 1999.12.03 19:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- 1999.12.03 18:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 열심희
- •
- 1999.12.03 10:59
- 1 COMMENTS
- /
- 0 LIKES
-
bluechip•1999.12.03 18:34MIDAS로 만든 프로그램에서는 CLIENT 프로그램에서 POST를 사용하지 않습니다 ApplyUpdates()를 사용합...
-
- 초보
- •
- 1999.12.03 10:28
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•1999.12.03 19:01초보 wrote: > 안녕하세요? > 메인폼이 아닌 Form2를 윈도우에서 다른 창들 보다 제일 위에 > 항상 띄...
-
- cha
- 1999.12.03 09:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 유민
- 1999.12.03 08:43
- 0 COMMENTS
- /
- 0 LIKES
-
-
나나•1999.12.03 18:29function Pos(Substr: string; S: string): Integer; ex) i := Pos('x','test'); (i = 0) i...
-
-
- 초보녀
- •
- 1999.12.03 07:32
- 2 COMMENTS
- /
- 0 LIKES
찾는 문자가 숫자형인지를 알고 싶습니다. 방법을 가르주세요. if copy(strTemp,1,1) ( '1' or ....'0') then .... else .... IF 문을 멋있게 처리할수는 없을까요. not in [1,2,3,4,5,6,7,8,9,0]와 같은 방법은.... 부탁드립니다.-
윤•1999.12.04 01:13초보녀 wrote: > 찾는 문자가 숫자형인지를 알고 싶습니다. > 방법을 가르주세요. > > if copy(strTem...
-
염재민•1999.12.03 11:17초보녀 wrote: > 찾는 문자가 숫자형인지를 알고 싶습니다. > 방법을 가르주세요. > > if copy(strTem...
-
- 손진운
- •
- 1999.12.03 05:19
- 1 COMMENTS
- /
- 0 LIKES
-
혀노•1999.12.03 05:46좀 이상한것 같군요,,, substring으로 뽑는것 까지는 좋은데요 그걸 그룹화 시킨다면 그 많은 날짜 중에...
-
- 피터팬
- •
- 1999.12.03 06:48
- 1 COMMENTS
- /
- 0 LIKES
-
jang•1999.12.04 23:45피터팬 wrote: > 델파이의 데이타펌프를 이용해 클리퍼를 파라독스로 바꾸는 방법은 알고있는데 클리퍼...
-
- 델 초보
- 1999.12.03 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재민
- •
- 1999.12.03 02:57
- 1 COMMENTS
- /
- 0 LIKES
-
혀노•1999.12.03 05:52음,,,,,일일이 하나하나 뽑아서 조사를 해서 문자는 문자대로 숫자는 숫자대로 해놓아하겠는데요,,,,, ...
-
- 김매경
- 1999.12.03 02:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 전재범
- 1999.12.03 02:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤희정
- •
- 1999.12.03 02:32
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•1999.12.03 18:00윤희정 wrote: > NT(4.0 Server)서버에서 클라이언트에서 UDP로 날라온 회원번호와 IP를 매개변수로 > 스...
> 찾는 문자가 숫자형인지를 알고 싶습니다.
> 방법을 가르주세요.
>
> if copy(strTemp,1,1) <> ( '1' or ....'0') then
> ....
> else
> ....
>
> IF 문을 멋있게 처리할수는 없을까요.
> not in [1,2,3,4,5,6,7,8,9,0]와 같은 방법은....
>
> 부탁드립니다.
>
Pascal 명령어에
procedure Val(S; var V; var Code: Integer);
것이 있습니다.
아래의 예제를 이용하면 간단하죠.
Function isNum(S : String) : Boolean;
var v, code : integer;
begin
Val(S, V, Code);
Result := (Code = 0);
end;