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;
와 같이 구성할 수 있습니다.
탐욕 님이 쓰신 글 :
: 제가 코드를 만들려고 하는데요 버튼을 누르면 에디트 박스에 출력이 되게 하고 싶습니다.
:
: 예) 회사명_오늘날짜_001 이런식으루요.
:
: 제가 짠 소스인데 한번 보고 조언좀 부탁드립니다.
:
: cxTE_Code.Text := company + '_' + StringReplace(DateToStr(Date),'-','',[rfReplaceAll]) + '_' + (balju_index + intToStr(1));
:
: 맨뒤에 balju_idex 스트링형 변수에는 '000'으로 초기화 해뒀구요
:
: 여기서 정수 1을 스트링형으로 변환시킨다음 변수에 더하면
:
: '001'이 나오지 않을까? 하고 고민하다가 저렇게 짯는데...
:
: '0001'이 나오네요.
:
: 흑흑 조언좀 부탁드립니다.
|