文件名称：Delphi7.0按要求生成指定位数编号.rar
文件大小：4KB
文件格式：RAR
更新时间：2022-07-30 04:30:32
Delphi源码-系统相关
Delphi7.0按要求生成指定位数编号，自动生成编号，请在文本框中输入编号，编号输入完成后按回车键。以下是完成核心功能的代码： procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var i:integer; s:string; begin S:=''; if key=vk_return then begin if length(edit1.Text)>8 then edit1.Text:=copy(edit1.Text,1,8); if length(edit1.Text)<8 then begin i:=8-length(edit1.Text); for i:=1 to (8-length(edit1.Text)) do begin s:=s '0'; end; edit1.Text:=trim(s) trim(edit1.Text); end; end; end; 完整实例需要下载本源码。
【文件预览】：
codesc.net
----按要求生成指定位数编号()
--------Project1.res(876B)
--------Unit1.dfm(1KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(1KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)