Q&A
- DateTimpPicker가 넘넘많아서...
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
MaskEdit1.Text := Copy(DateToStr(DateTimePicker1.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker1.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker1.Date),7,2);
end;
procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
MaskEdit2.Text := Copy(DateToStr(DateTimePicker2.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker2.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker2.Date),7,2);
end;
procedure TForm1.DateTimePicker3Change(Sender: TObject);
begin
MaskEdit3.Text := Copy(DateToStr(DateTimePicker3.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker3.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker3.Date),7,2);
end;
procedure TForm1.DateTimePicker4Change(Sender: TObject);
begin
MaskEdit4.Text := Copy(DateToStr(DateTimePicker4.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker4.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker4.Date),7,2);
end;
이렇게 DateTimePicker도 여러개이고 MaskEdit도 여러개네요.
공통된사항은 DateTimePicker4 이면 이름이 MaskEdit4가 됩니다.
이런 식으로 20개 남짓되는데..
그렇게 된다면...위의 쏘쓰 너무 지저분해지잖아여!
이 길이를 화~~악 줄일수 있을까여?
나름대로 생각을 해도 답이...-_-;
지발 답을... 쩌번에도 누가 올려놨는데...암도 대답을 안하셨던데..
함만, 곰곰히 생각해 답을 유출해주세요~~~
begin
MaskEdit1.Text := Copy(DateToStr(DateTimePicker1.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker1.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker1.Date),7,2);
end;
procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
MaskEdit2.Text := Copy(DateToStr(DateTimePicker2.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker2.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker2.Date),7,2);
end;
procedure TForm1.DateTimePicker3Change(Sender: TObject);
begin
MaskEdit3.Text := Copy(DateToStr(DateTimePicker3.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker3.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker3.Date),7,2);
end;
procedure TForm1.DateTimePicker4Change(Sender: TObject);
begin
MaskEdit4.Text := Copy(DateToStr(DateTimePicker4.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker4.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker4.Date),7,2);
end;
이렇게 DateTimePicker도 여러개이고 MaskEdit도 여러개네요.
공통된사항은 DateTimePicker4 이면 이름이 MaskEdit4가 됩니다.
이런 식으로 20개 남짓되는데..
그렇게 된다면...위의 쏘쓰 너무 지저분해지잖아여!
이 길이를 화~~악 줄일수 있을까여?
나름대로 생각을 해도 답이...-_-;
지발 답을... 쩌번에도 누가 올려놨는데...암도 대답을 안하셨던데..
함만, 곰곰히 생각해 답을 유출해주세요~~~
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- DEUXIST ^^;
- •
- 2001.08.17 01:30
- 1 COMMENTS
- /
- 0 LIKES
procedure TForm1.DateTimePicker1Change(Sender: TObject); begin MaskEdit1.Text := Copy(DateToStr(DateTimePicker1.Date),1,4) +'/' + Copy(DateToStr(DateTimePicker1.Date),5,2) +'/' + Copy(DateToStr(DateTimePicker1.Date),7,2);...-
최용일•2001.08.17 02:12안녕하세요. 최용일입니다. FindComponent란 메소드를 사용해보세요... // 모든 DateTimePicker의 O...
-
- 마른머리
- •
- 2001.08.17 01:15
- 2 COMMENTS
- /
- 0 LIKES
-
이희정•2001.08.17 01:51마른머리 wrote: > 델파이 초보인데여.... > 금전 관리 프로그램을 짜고있는데 퀵리포트에서 월계를 어...
-
마른머리•2001.08.17 21:45님아 님이 말씀하신데려 Group Header 에서 했는데 일계만 되는데 월계를 구하려면 조건을 다르게 주어야 ...
-
- upgrade
- •
- 2001.08.17 01:07
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.08.17 01:55upgrade wrote: > 또 질문임돠... > 항상 좋은 답변주시는 분들께 행복을 ~ ^^; > > > 소트 혹은 검...
-
- 김민혁
- 2001.08.17 01:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 석
- •
- 2001.08.17 00:58
- 3 COMMENTS
- /
- 0 LIKES
-
이희정•2001.08.17 01:58석 wrote: > > 쿼리에 대한 질문입니다. > 쿼리가 메모리를 잡아 먹나요? > 제가 하나의 폼에서 읽어...
-
석•2001.08.17 02:34이희정 wrote: > 석 wrote: > > > > 쿼리에 대한 질문입니다. > > 쿼리가 메모리를 잡아 먹나요? > >...
-
^-_-^•2001.08.17 22:32yo` general SQL Error 은 희정님의 말씀대로 sql문이 잘못되었을때 나타납니다. 잘 살펴보시길...어...
-
- 주니
- 2001.08.17 00:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이채성
- 2001.08.17 00:49
- 0 COMMENTS
- /
- 0 LIKES
-
- kkk
- 2001.08.17 00:39
- 0 COMMENTS
- /
- 0 LIKES
-
- irookie
- •
- 2001.08.17 00:14
- 3 COMMENTS
- /
- 0 LIKES
-
데빠이•2001.08.17 00:38irookie wrote: > 디비그리드 타이틀클릭 이벤트 발생이면... > qry1.Close; > qry1.SQL.Clea...
-
irookie•2001.08.17 00:50쿼리전에 caption := column.FieldName; 하면 값은 제대로 나옵니다. 그런데, qry1.open전에 captio...
-
irookie•2001.08.17 01:41qry1.SQL.Add( ' order by ' + Column.FieldName ); ... 요렇게 하문 안되구여. tmpstr := Column.Fie...
-
- 오병주
- •
- 2001.08.16 23:26
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.08.17 00:12TQuery.FieldCount를 사용하세요.. From 류.. 오병주 wrote: > [질문] SQL 7.0 쿼리한 DB의 필드...
-
- 진짜 왕초보
- •
- 2001.08.16 21:36
- 1 COMMENTS
- /
- 0 LIKES
-
최은석•2001.08.17 03:13진짜 왕초보 wrote: > 입금과입금일자 처리부분 아시는분? > 입금액과 입금일자는 그냥 디비그리드에 보...
-
-
- 쩝쩝
- 2001.08.16 20:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보딱지
- •
- 2001.08.16 20:43
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.17 00:13초보딱지 wrote: > 음... 시간에 관한 질문입니다.. > 시간에 관한거는 오늘 첨써보는거라서... ㅡㅡ; >...
-
- 초짜
- •
- 2001.08.16 20:41
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.16 22:58초짜 wrote: > 음냐..제목그대로 Real형의 초를 > 몇시 몇분 몇초로 나누어서 표현하고 싶거덩요... ...
-
- 초보
- •
- 2001.08.16 20:38
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.16 23:20초보 wrote: > 예를 들어 > Edit 에서 > 123,45라느 스트링이 있는데 > 포커스가 3다음 그러니까 , 앞...
-
- 초보임다
- 2001.08.16 20:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2001.08.16 19:40
- 5 COMMENTS
- /
- 0 LIKES
-
최용일•2001.08.17 02:18
-
어린왕자•2001.08.17 03:05
-
최용일•2001.08.17 03:09
-
어린왕자•2001.08.17 05:18
-
최용일•2001.08.17 21:10
-
- kkk
- •
- 2001.08.16 19:39
- 1 COMMENTS
- /
- 0 LIKES
-
서경환•2001.08.16 21:12삭제한 후에 처리를 어떻게 하는지 궁금하군요. 삭제하는 부분을 올려 주시면... kkk wrote: > 먼저 ...
-
-
DEUXIST ^^;
2001/08/17 01:30
-
Views242Likes0Comments1Reports0
-
Tag List
- 수정
- 삭제
- 목록으로
FindComponent란 메소드를 사용해보세요...
// 모든 DateTimePicker의 OnChange이벤트
procedure TForm1.DateTimePickerChange(Sender: TObject);
var
IndexStr: string;
MaskEdit: TMaskEdit;
DateTimePicker: TDateTimePicker;
begin
// 'DateTimePickerXX' 라는 컴포넌트 이름에서 'DateTimePicker'라는 문자열을
// 삭제하면 숫자 인덱스만 나온다...
// ex) 컴포넌트 이름이 'DateTimePicker1'일때: IndexStr = '1'
IndexStr := TDateTimePicker( Sender ).Name;
Delete(IndexStr, 1, Length('DateTimePicker'));
// DateTimePicker와 인덱스가 같은 MaskEdit를 찾는다.
MaskEdit := FindComponent('MaskEdit' + IndexStr);
// 이벤트를 일으킨 TDateTimePicker컴포넌트는 Sender로 넘어오므로 찾을필요가 없다...
DateTimePicker := TDateTimePicker( Sender );
MaskEdit.Text := Copy(DateToStr(DateTimePicker.Date),1,4) +'/' +
Copy(DateToStr(DateTimePicker.Date),5,2) +'/' +
Copy(DateToStr(DateTimePicker.Date),7,2);
end;
^^ 항상 즐코하세요...
DEUXIST ^^; wrote:
> procedure TForm1.DateTimePicker1Change(Sender: TObject);
> begin
> MaskEdit1.Text := Copy(DateToStr(DateTimePicker1.Date),1,4) +'/' +
> Copy(DateToStr(DateTimePicker1.Date),5,2) +'/' +
> Copy(DateToStr(DateTimePicker1.Date),7,2);
> end;
>
> procedure TForm1.DateTimePicker2Change(Sender: TObject);
> begin
> MaskEdit2.Text := Copy(DateToStr(DateTimePicker2.Date),1,4) +'/' +
> Copy(DateToStr(DateTimePicker2.Date),5,2) +'/' +
> Copy(DateToStr(DateTimePicker2.Date),7,2);
> end;
>
> procedure TForm1.DateTimePicker3Change(Sender: TObject);
> begin
> MaskEdit3.Text := Copy(DateToStr(DateTimePicker3.Date),1,4) +'/' +
> Copy(DateToStr(DateTimePicker3.Date),5,2) +'/' +
> Copy(DateToStr(DateTimePicker3.Date),7,2);
> end;
>
> procedure TForm1.DateTimePicker4Change(Sender: TObject);
> begin
> MaskEdit4.Text := Copy(DateToStr(DateTimePicker4.Date),1,4) +'/' +
> Copy(DateToStr(DateTimePicker4.Date),5,2) +'/' +
> Copy(DateToStr(DateTimePicker4.Date),7,2);
> end;
>
> 이렇게 DateTimePicker도 여러개이고 MaskEdit도 여러개네요.
> 공통된사항은 DateTimePicker4 이면 이름이 MaskEdit4가 됩니다.
> 이런 식으로 20개 남짓되는데..
> 그렇게 된다면...위의 쏘쓰 너무 지저분해지잖아여!
> 이 길이를 화~~악 줄일수 있을까여?
>
> 나름대로 생각을 해도 답이...-_-;
> 지발 답을... 쩌번에도 누가 올려놨는데...암도 대답을 안하셨던데..
>
> 함만, 곰곰히 생각해 답을 유출해주세요~~~
>