hsr/////////////////////////////////////////////////////
어떻게 하셨는지 잘 몰라서요.
혹시 아래인지요?
아랜 간단히 했지만 만약 형식이 필요할경운 정수로바꾼후 format함수로 하시면됩니다.
procedure TForm1.Button1Click(Sender: TObject);
var
Str0, Str1, Str2 :String;
begin
Str0 := '200208';
Str1 := copy(Str0,1,4);
Str2 := intToStr( StrToint(copy(Str0,5,2)) );
어떻게 하셨는지 잘 몰라서요.
혹시 아래인지요?
아랜 간단히 했지만 만약 형식이 필요할경운 정수로바꾼후 format함수로 하시면됩니다.
procedure TForm1.Button1Click(Sender: TObject);
var
Str0, Str1, Str2 :String;
begin
Str0 := '200208';
Str1 := copy(Str0,1,4);
Str2 := intToStr( StrToint(copy(Str0,5,2)) );
showmessage( Str1 + '년 ' +Str2);
end;