gomsun2 님이 쓰신 글 :
: var
:   LIdx: Integer;
:   LOrderNo: String;
: begin
:   LIdx := StrToInt(balju_index);
:   Inc(LIdx);
:   LOrderNo := company + '_' + StringReplace(DateToStr(Date),'-','',[rfReplaceAll]);
:   cxTE_Code.Text := Format('%s_%.4d', [LOrderNo, LIdx]);
: end;
:
: 첨언드리면,
: - balju_index와 같이 용도가 명확한 값은 Integer로 선언하시면 편리할것 같습니다.
: - 날짜 변환은 FormatDateTime('YYYYMMDD', Date)를 쓰시면 좋을 것 같습니다.
: - 각각을 적용하면
: begin
:   Inc(balju_index);
:   cxTE_Code.Text := Format('%s_%s_%.4d', [
:     company,
:     FormatDateTime('YYYYMMDD', Date)
:     balju_index
:   ]);
: end;
: 와 같이 구성할 수 있습니다.


gomsun2 정말 감사합니다. 덕분에 궁금증이 시원하게 해결되었습니다. 말씀드린대로 한번 다시 짜보면서
많이 배워갑니다. 정말 감사드립니다. ^^