procedure TF_gong1.DateTimePicker1Change(Sender: TObject);

begin

MaskEdit1.Text := Copy(DateToStr(DateTimePicker1.Date),1,4)

+Copy(DateToStr(DateTimePicker1.Date),6,2)

+Copy(DateToStr(DateTimePicker1.Date),9,2);

MaskEdit1.SetFocus;

end;



procedure TF_gong1.DateTimePicker2Change(Sender: TObject);

begin

MaskEdit2.Text := Copy(DateToStr(DateTimePicker2.Date),1,4)

+Copy(DateToStr(DateTimePicker2.Date),6,2)

+Copy(DateToStr(DateTimePicker2.Date),9,2);

MaskEdit2.SetFocus;

end;



procedure TF_gong1.DateTimePicker3Change(Sender: TObject);

begin

MaskEdit3.Text := Copy(DateToStr(DateTimePicker3.Date),1,4)

+Copy(DateToStr(DateTimePicker3.Date),6,2)

+Copy(DateToStr(DateTimePicker3.Date),9,2);

MaskEdit3.SetFocus;

end;



procedure TF_gong1.DateTimePicker4Change(Sender: TObject);

begin

MaskEdit4.Text := Copy(DateToStr(DateTimePicker4.Date),1,4)

+Copy(DateToStr(DateTimePicker4.Date),6,2)

+Copy(DateToStr(DateTimePicker4.Date),9,2);

MaskEdit4.SetFocus;

end;



이렇게 DateTimePicker도 여러개이고 MaskEdit도 여러개 입니다.

공통된사항은 DateTimePicker4 이면 이름이 MaskEdit4가 됩니다.

이 소스의 길이를 줄일수 있을까여?

이런 식으로 한 20개 정도가 계속됩니다.

그럼...