프로그램을 짜고 있는 초짜입니다..
제품의 바코드를 쏴서 나오는 SN번호를
.TXT파일로 저장까지 하였습니다.
이제부터 막힙니다..
BOX바코드발행을 해야하는데요..
TXT로 저장된 SN번호를 INI파일로 불러들여
SN번호가가 15개이면 BOX번호가 AAAYYMMDD0001 이렇게 나오게 해야합니다.
또 SN번호가 15개가 되어 30개가 되면 BOX 마지막 번호가 0002 이렇게 되야합니다.
이렇게 만들기 위해서 INI파일로 해야한다고 하는데..어떻게 하는지 모르겠습니다..
바코드 출력과 모든것은 다 되어있는데 INI파일만 못하고 있습니다..
고수님들의 조언 부탁드리겠습니다..
마지막으로 BOX번호 0001,0002의 카운터 증가도 조언주셨음합니다.
설명의 어려움이 있더라도 고수님들..도와주십시요..ㅠㅠ
그나마 제가 했던 INI파일 생성 소스입니다.
procedure TForm1.FormCreate(Sender: TObject);
var
sini : TiniFile;
strkey : string;
begin
sini := TIniFile.Create('c:/lot.ini');
if FileExists('sini') then begin
strkey := sini.ReadString('barcode','data','o');
showmessage(strkey);
end else begin
sini.WriteString('barcode', 'data', '1');
end;
sini.Free;
end;
부탁드립니다..
BOX번호는 FormatFloat함수을 쓰시면 됩니다.
var
BoxNumber: Integer;
begin
BoxNumber := 1;
ShowMessage( FormatFloat('0000', BoxNumber) ); // = 0001
BoxNumber := 999;
ShowMessage( FormatFloat('0000', BoxNumber) ); // = 0999
end;