Q&A
- 스트링, 숫자 비교는 어떻게 하는게 좋은가요...?
EDIT 로부터 스트링을 입력 받을때,
특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중에 어느 한 문자라라도
특정 문자, 혹은 숫자가 오면 안되도록 할때, 그 EDIT로부터 입력받은 스트링 하나하나를 다 비교하는게 효율적인가 해서요,..
일일이 다 비교하지 않고 할 수 있는 방법이 있을까요?
특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중에 어느 한 문자라라도
특정 문자, 혹은 숫자가 오면 안되도록 할때, 그 EDIT로부터 입력받은 스트링 하나하나를 다 비교하는게 효율적인가 해서요,..
일일이 다 비교하지 않고 할 수 있는 방법이 있을까요?
4
COMMENTS
-
-
KeyPress를 했더니, 숫자를 지정하면, 숫자는 전체가 다 안되는군요..
첫번째에만 숫자가 들어올 수 있도록 할수는 없을까요?
-
안녕하세요. 최용일입니다.
아래와 같이 하세요...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (TEdit(Sender).Text = '') then
begin
if not (Key in ['1'..'9']) then
Key := #0;
end
else
if (TEdit(Sender).SelStart = 0) then
if not (Key in ['0'..'9']) then
Key := #0;
end;
end;
^^ 항상 즐코하세요...
델 wrote:
> KeyPress를 했더니, 숫자를 지정하면, 숫자는 전체가 다 안되는군요..
>
> 첫번째에만 숫자가 들어올 수 있도록 할수는 없을까요?
-
델 wrote:
> EDIT 로부터 스트링을 입력 받을때,
> 특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중에 어느 한 문자라라도
> 특정 문자, 혹은 숫자가 오면 안되도록 할때, 그 EDIT로부터 입력받은 스트링 하나하나를 다 비교하는게 효율적인가 해서요,..
>
> 일일이 다 비교하지 않고 할 수 있는 방법이 있을까요?
>
>
TEdit의 OnKeyPress란 이벤트를 사용하시면 되는데요.
= 사용 예 =
procedure TFrom1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
SelectNext(ActiveControl, True, True);
Key := #0;
end
// 숫자만 입력받음
else if not (Key in ['0'..'9']) then
Key := #0;
end;
즐프하시길..
(NOTICE) You must be logged in to comment on this post.
-
- 이성운
- 2001.05.03 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 서니
- •
- 2001.05.03 02:51
- 2 COMMENTS
- /
- 0 LIKES
-
송종석•2001.05.03 09:13Master/Detail관계를 이용하셔도 됩니다. 방법: File-New-Forms-QuickReport Master/Detail 선택 후 몇가...
-
호호•2001.05.03 05:45서니 wrote: > [paradox] > > 3개의 테이블에서 데이터 값을 읽어와 출력을 하려고 합니다. > dataset...
-
- 전승헌
- •
- 2001.05.03 02:44
- 1 COMMENTS
- /
- 0 LIKES
-
송종석•2001.05.03 08:57Report폼을 Modal폼으로 띄워놓고 조회화면 폼에서 Report폼의 콤포넌트를 핸들링하는 방법이 있습니다. ...
-
- 델
- •
- 2001.05.03 02:14
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.05.03 04:07안녕하세요. 최용일입니다. 별거 없는데요. 아래 말씀하신 님처럼 Rx를 사용하셔두 되구요. 그냥 간단하...
-
parkisu•2001.05.03 03:41델 wrote: > 일반적으로 윈도우즈 프로그램에서 볼 수 있는 엘립시스 버튼, 텍스트를 입력할 수 있는 창 ...
-
- 윤영균
- 2001.05.03 01:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 프롬프트
- 2001.05.03 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 강동희
- •
- 2001.05.03 01:24
- 1 COMMENTS
- /
- 0 LIKES
-
강동희•2001.05.03 18:11강동희 wrote: 지금 *.mdb (Access DB) 를 --> Paradox 테이블로 변환중인데요... 물론 엑세스 디비...
-
- erin
- •
- 2001.05.03 00:27
- 2 COMMENTS
- /
- 0 LIKES
-
감초•2001.05.04 02:35어쩌면 interbase의 사용자 설명서나 데모 gdb화일에조차 generator는 진짜로 설명이 엉성하게 나와있는게 ...
-
프롬프트•2001.05.03 01:19인프라이즈 뉴스그룹 서치엔진입니다. 이곳에서 generator로 검색해보셔서 해당되는 내용이 있나 살펴보...
-
- 초보
- •
- 2001.05.03 00:07
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.03 01:40허걱~ 제가 그렇게 설명 드렸는데... 다시 읽어보세요. 먼저 컴포넌트를 인스톨하시구 컴포넌트 팔레트...
-
- 델초보
- 2001.05.02 23:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 델
- •
- 2001.05.02 23:08
- 4 COMMENTS
- /
- 0 LIKES
EDIT 로부터 스트링을 입력 받을때, 특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중에 어느 한 문자라라도 특정 문자, 혹은 숫자가 오면 안되도록 할때, 그 EDIT로부터 입력받은 스트링 하나하나를 다 비교하는게 효율적인가 해서요,...-
나그네•2001.05.03 02:24델 wrote: > EDIT 로부터 스트링을 입력 받을때, > 특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중...
-
델•2001.05.03 03:12KeyPress를 했더니, 숫자를 지정하면, 숫자는 전체가 다 안되는군요.. 첫번째에만 숫자가 들어올 수 있...
-
최용일•2001.05.03 04:38안녕하세요. 최용일입니다. 아래와 같이 하세요... procedure TForm1.Edit1KeyPress(Sender: TObject...
-
유레카•2001.05.03 02:23델 wrote: > EDIT 로부터 스트링을 입력 받을때, > 특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중...
-
- 피카피카
- 2001.05.02 23:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 이석민
- 2001.05.02 22:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 최용일
- 2001.05.02 22:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 박한호
- •
- 2001.05.02 21:40
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.02 22:35안녕하세요. 최용일입니다. 이 에러의 99%는 이름매칭이 잘못되서 그런겁니다. Name뒤에 써주는 DLL...
-
- 델초보
- •
- 2001.05.02 21:18
- 1 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.05.03 01:30OnClickSeries이밴트에 이렇게 함됨다. ^_________^;; series.YValues[ValueIndex] series.XValues[Value...
-
- hlpark
- •
- 2001.05.02 21:13
- 2 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.05.03 21:20hlpark wrote: > 델파이 왕초봅니당~~ > > 뭐가 잘못인지 몰르겠어요.. > 쿼리를 겹쳐서 그러지 어떤...
-
hlpark•2001.05.03 21:52
-
- 김종석
- 2001.05.02 21:05
- 0 COMMENTS
- /
- 0 LIKES
-
-
hoon•2001.05.03 23:183107 wrote: > sql plus에서 현재 잡혀있는 인텍스를 본다던지... user_indexes 를 보시면 될...
-
-
- 델초보
- 2001.05.02 20:55
- 0 COMMENTS
- /
- 0 LIKES
> EDIT 로부터 스트링을 입력 받을때,
> 특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중에 어느 한 문자라라도
> 특정 문자, 혹은 숫자가 오면 안되도록 할때, 그 EDIT로부터 입력받은 스트링 하나하나를 다 비교하는게 효율적인가 해서요,..
>
> 일일이 다 비교하지 않고 할 수 있는 방법이 있을까요?
>
>
아래와 같은 방법으로 필터해보세요 ^^
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9', 'a'..'z'] then
Caption := 'success'
else begin
ShowMessage('잘못 입력하셨습니다');
Key := #0;
end;
end;
즐프하세요^^