Trim함수는 문자열의 양쪽 공백을 제거할때 사용합니다



아래를 참고하세요 !!



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



function DateToStr( d : TDate ) : string;

var

s : string;

iYear, iMonth, iDay : integer;

begin

s := FormatDateTime('yyyy-mm-dd', d);

iYear := StrToInt(copy(s,1,4));

iMonth := StrToInt(copy(s,6,2));

iDay := StrToInt(copy(s,9,2));

result := IntToStr(iYear)+'. '+IntToStr(iMonth)+'. '+IntToStr(iDay);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage( DateToStr( StrToDate('1999-01-01') ) );

end;



end.





김영애 wrote:

> 저 궁금한게 있어서 이렇게 글을 남깁니다...

>

> DB에서 날짜 데이터를 불러오는건데요....

> 예를들면, DB에는 오늘날짜같은 경우 19991208 이런식으로 저장되어 있습니다...

> 그렇게되면 저는 이 데이터를 불러와서 1999. 12. 8 이런식으로 날짜를 뿌려줘야 되죠. 근데, 월이나 일에서 앞에는 '0'이 붙을수가 있잖아요...

> 여기서 '0'을 없애고 나머지 뒷자리만 뿌려주고 싶어서요...

>

> 그게 trim이라는 함수로 가능한지요... trim은 공백 제거만 가능한건가요?

> 아닌거 같은데... 이거 말고라도 해결책을 좀 가르쳐 주세요!!!

> 빠른 답변 기다립니다...

> 모두들 행복하세요!!

>

>

>

>

>

>

>

>

>

>

>