var

ADate : TDateTime;

begin

try

ADate := StrToDate(copy(edit1.text,1,4)+DateSeparator+

copy(edit1.text,5,2)+DateSeparator+

copy(edit1.text,7,2));

except

on EConvertError do Showmessage('맞지 않습니다.')

end;

end;

end;

진정은 wrote:

> 델파이의 TDateTime 형의 자료표시형식이

> 시스템설정-국가별설정을 기준으로 그 형식이 바뀌더군요.

>

> 시스템의 국가별설정방법을 프로그램않에서 바꿀수 있는 방법이 없습니까?

> 한마디로 TDateTime의 형식을 나만의 형식으로 바꾸고 싶습니다.

>

> 예) 년도 두자리-> 네자리 인식,

> 구분자 '/'-> 구분자 없다. 등등..



이렇게 저렇게 해보다가 도저히 저는 이해가 않되서요.

잘 봐주세요. 제 머리로는.... 쩝.. 속시원히 설명좀 부탁드립니다.



procedure TForm1.FormCreate(Sender: TObject);

begin

SysUtils.shortDateFormat := 'yyyymmdd';

Edit1.Text := datetostr(Now); // ----> 화면에 표기되길 '19991104'

end;



procedure TForm1.Button1Click(Sender: TObject);

var datej : TDateTime;

begin

try

datej := strtoDate(Edit1.Text); // ---->Edit에는 '19991104'가 있어요

except

showmessage('이런 날짜형 데이타가 아닌걸?');

exit;

end;

showmessage(datetostr(datej));

end;



버튼을 누르면 '날짜형이 아니다' 라는 메세지-예외처리에 걸린다.-가 나와요.

분명이 현재의 날짜 데이트형의 데이타를 고대로 문자열로 바꾼건데 그걸 다시 날짜형으로 바꾸려니 않되다니요.

위에서 작성한 SysUtils.shortDateFormat라는 것이 단순히 표기하기위한 형태밖에 않되는 건가요? 위에서 제가 물었던 시스템 국가별설정의 날짜표기를 바꾸는건 아닌가봐요.

아웅.. 복잡하당.

고수님의 명쾌한 답변을 부탁드립니다.



궁극적으로 제가 하고 싶은 방법은요 구분자 없는 날짜형태를 갖고 싶습니다.