Q&A
- 조건 검색을 싶게 구현하는 방법?
소스는 밑에 처럼인데 소스가 다른 좋은 코딩 방법이 있으면 알려 주세요.
If (Edit1.Text='011') Or (Edit1.Text='017') Or (Edit1.Text='018') or
(Edit1.Text='019') Or (Edit1.Text='016') Or (Edit1.Text='012') Then
이런 코드인데 검색할려는 20가지 정도이면 Edit.Text=XXX를 20개정도 입력해야하는데
이보다 효율적인 코딩 방법이 있으면 알려주셨으면 합니다.
If (Edit1.Text='011') Or (Edit1.Text='017') Or (Edit1.Text='018') or
(Edit1.Text='019') Or (Edit1.Text='016') Or (Edit1.Text='012') Then
이런 코드인데 검색할려는 20가지 정도이면 Edit.Text=XXX를 20개정도 입력해야하는데
이보다 효율적인 코딩 방법이 있으면 알려주셨으면 합니다.
2
COMMENTS
-
-
저는 이렇게 할것같네요...
case StrToIntDef(Edit1.Text,0) of
0 : Error;
011,017,018 : ....; // 앞에0는빼도되겠죠....
end;
parkisu wrote:
> 양용민 wrote:
> > 소스는 밑에 처럼인데 소스가 다른 좋은 코딩 방법이 있으면 알려 주세요.
> > If (Edit1.Text='011') Or (Edit1.Text='017') Or (Edit1.Text='018') or
> > (Edit1.Text='019') Or (Edit1.Text='016') Or (Edit1.Text='012') Then
> >
> > 이런 코드인데 검색할려는 20가지 정도이면 Edit.Text=XXX를 20개정도 입력해야하는데
> >
> > 이보다 효율적인 코딩 방법이 있으면 알려주셨으면 합니다.
>
> 안녕하세요?
> 전화번호 입력하는 소스의 일부인 것 같군요.
> 제가 말씀드리는 방법이 최선의 방법은 아닙니다. 다만 참고하시기 바랍니다.
>
> PhoneList: TStringList;//데이터를 저장할 스트링리스트 변수.
>
>
> procedure TForm1.FormCreate(Sender:TObject);
> begin
> PhoneList:= nil;
> PhoneList:= TStringList.Create;
> PhoneList.Item.Add('011');
> PhoneList.Items.Add('016');
> {중략....}
> PhoneList.Items.Add('012');
> end;
>
> procedure TForm1.FormClose(Sender:TObject);
> begin
> PhoneList.Free;
> Action:= caFree;
> end;
>
> If PhoneList.IndexOf(Edit1.Text='011')>=0 Then
> {처리할 내용}
>
(NOTICE) You must be logged in to comment on this post.
-
- 델파이초보
- •
- 2001.01.17 23:18
- 2 COMMENTS
- /
- 0 LIKES
-
조대호•2001.01.21 10:33DB를 oracle을 사용하셨나 봅니다. ORA-00904 는 쿼리문중 오타가 있을때 나는 ERROR로 알고 있습니다. ...
-
^^•2001.01.18 18:03
-
- 미니
- •
- 2001.01.17 22:30
- 1 COMMENTS
- /
- 0 LIKES
-
도지성•2001.01.18 18:57빈 폼에 버튼을 하나 올려 놓고 다음 이벤트를 연결합니다.. procedure TForm1.Button1Click(Sender: ...
-
- 주야
- •
- 2001.01.17 21:14
- 4 COMMENTS
- /
- 0 LIKES
-
방경주•2001.01.17 22:35table 컴포넌트를 쓰셨다면 안되구여... Query 컴포넌트를 써서 Sql루 처리 하셔야 합니다.... 두 테...
-
주야•2001.01.18 02:44그거야 저두 아는데 어떻게 조인시키냐구요..... SQL문에 꾀나 서툴거든요 방경주 wrote: > table 컴...
-
방경주•2001.01.18 03:34select a.aaa, a.bbb, b.ccc from table1 a , table2 b where a.aaa = b.aaa 이런식으로 조...
-
lbd•2001.02.05 20:55이거 혹시 query할때 union쓰면 되는거 아닌가요.. 동일한 field를 구성하는 두개의 tables에서 각각 서...
-
- 어린왕자
- 2001.01.17 20:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2001.01.17 20:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진철
- 2001.01.17 20:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 문청
- 2001.01.17 20:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민홍
- 2001.01.17 20:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 김범수
- •
- 2001.01.17 20:03
- 2 COMMENTS
- /
- 0 LIKES
-
조덕진•2001.01.17 23:42김범수 wrote: > DBGrid에 입력시 오류가 발생하는데 도저히 못찾겠내요 > 고수님들 한번 봐주세요 > ...
-
김범수•2001.01.18 05:08조덕진 wrote: > 김범수 wrote: 너무 감사합니다. 파라미터는 저가 알지 못했는 것인데, 알려주세서 ...
-
- 한영모
- •
- 2001.01.17 19:57
- 1 COMMENTS
- /
- 0 LIKES
-
김경수•2001.03.05 07:51한영모 wrote: > * 사용환경 : 델파이5 / Windows 98, Windows 2000 > > Corba Server는 자바로 작성되...
-
- 김철수
- 2001.01.17 19:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 박종덕
- 2001.01.17 19:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2001.01.17 19:39
- 2 COMMENTS
- /
- 0 LIKES
-
지영일•2001.01.17 20:25자료실에 가셔서 다른 컴포넌트를 다운받아 설치하세요.. 스피드버튼은 Color 속성이 없답니다. 좋은 하...
-
어린왕자•2001.01.17 20:39내용엄써요. 지영일 wrote: > 자료실에 가셔서 다른 컴포넌트를 다운받아 설치하세요.. > 스피드버튼은 ...
-
- 궁금이
- 2001.01.17 19:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 김기혁
- 2001.01.17 18:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 김석수
- •
- 2001.01.17 10:26
- 1 COMMENTS
- /
- 0 LIKES
-
jung hyun jin•2001.01.17 18:15김석수 wrote: > 안녕하세요. > 파일을 매일 백업을 받아 놓고 싶거든요. > 그래서 하위 디렉토리까지 ...
-
- 이기코알라
- •
- 2001.01.17 09:21
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.17 13:46물어보신게 디비그리드가 맞다면.... 디비그리드에 연결된 테이블컴퍼넌트가 Table1이라 치면 ta...
-
아폴론•2001.01.18 18:18> > > > 전 DBGrid상에서 선택된 그 항만을 지울려고 하는데 좀 도와주십시요 > > > > procedure TF...
-
- 김기혁
- •
- 2001.01.17 08:26
- 4 COMMENTS
- /
- 0 LIKES
-
김상호•2001.01.17 17:17DCOMConnection 의 ComputerName이 잘못된것 아닌가요... 김기혁 wrote: > DCom으로 서버와 클라이언...
-
김기혁•2001.01.17 18:20김상호 wrote: > DCOMConnection 의 ComputerName이 잘못된것 아닌가요... > > > 김기혁 wrote: > >...
-
나그네•2001.06.03 13:47김기혁 wrote: > 김상호 wrote: > > DCOMConnection 의 ComputerName이 잘못된것 아닌가요... > > > >...
-
나그네•2001.06.03 13:47김기혁 wrote: > 김상호 wrote: > > DCOMConnection 의 ComputerName이 잘못된것 아닌가요... > > > >...
-
- 양용민
- •
- 2001.01.17 07:51
- 2 COMMENTS
- /
- 0 LIKES
소스는 밑에 처럼인데 소스가 다른 좋은 코딩 방법이 있으면 알려 주세요. If (Edit1.Text='011') Or (Edit1.Text='017') Or (Edit1.Text='018') or (Edit1.Text='019') Or (Edit1.Text='016') Or (Edit1.Text='012') Then 이런 코드인데 ...-
parkisu•2001.01.17 09:10양용민 wrote: > 소스는 밑에 처럼인데 소스가 다른 좋은 코딩 방법이 있으면 알려 주세요. > If (Edit1....
-
공성환•2001.01.17 19:17저는 이렇게 할것같네요... case StrToIntDef(Edit1.Text,0) of 0 : Error; 011,017,018 : ....; //...
-
- 델파이 왕초보~!!
- •
- 2001.01.17 06:48
- 1 COMMENTS
- /
- 0 LIKES
-
크리스탈•2001.01.19 02:09델파이 왕초보~!! wrote: > 델파이를 사용하던중......어떻게해야할지...... > DBGrid에서 총 20개의 레...
> 소스는 밑에 처럼인데 소스가 다른 좋은 코딩 방법이 있으면 알려 주세요.
> If (Edit1.Text='011') Or (Edit1.Text='017') Or (Edit1.Text='018') or
> (Edit1.Text='019') Or (Edit1.Text='016') Or (Edit1.Text='012') Then
>
> 이런 코드인데 검색할려는 20가지 정도이면 Edit.Text=XXX를 20개정도 입력해야하는데
>
> 이보다 효율적인 코딩 방법이 있으면 알려주셨으면 합니다.
안녕하세요?
전화번호 입력하는 소스의 일부인 것 같군요.
제가 말씀드리는 방법이 최선의 방법은 아닙니다. 다만 참고하시기 바랍니다.
PhoneList: TStringList;//데이터를 저장할 스트링리스트 변수.
procedure TForm1.FormCreate(Sender:TObject);
begin
PhoneList:= nil;
PhoneList:= TStringList.Create;
PhoneList.Item.Add('011');
PhoneList.Items.Add('016');
{중략....}
PhoneList.Items.Add('012');
end;
procedure TForm1.FormClose(Sender:TObject);
begin
PhoneList.Free;
Action:= caFree;
end;
If PhoneList.IndexOf(Edit1.Text='011')>=0 Then
{처리할 내용}