Delphi7.0按要求生成指定位数编号.rar
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;
完整实例需要下载本源码。
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;
完整实例需要下载本源码。
文件下载
资源详情
[{"title":"（ 7 个子文件 4KB ） Delphi7.0按要求生成指定位数编号.rar","children":[{"title":"codesc.net","children":[{"title":"按要求生成指定位数编号","children":[{"title":"Project1.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Unit1.dfm <span style='color:#111;'> 1.12KB </span>","children":null,"spread":false},{"title":"Unit1.ddp <span style='color:#111;'> 51B </span>","children":null,"spread":false},{"title":"Project1.cfg <span style='color:#111;'> 434B </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 1.04KB </span>","children":null,"spread":false},{"title":"Project1.dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"Project1.dof <span style='color:#111;'> 1.97KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true}]
评论信息
其他资源
- 中科院模式识别考博真题（00-16年）
- Qt音频传输
- 图像分割—基于图的图像分割（Graph-Based Image Segmentation）C++源代码
- Autoluminous发光特效【2、3、4】.rar
- 计算欧式距离的matlab程序
- 航班数据库
- Springboot中ajax实现动态绑定省市区
- 最完整CMMI3标准文档模板
- STM32F103双串口通信源码，已测试通过。
- pygame写的魔塔
- 语音信号处理C语言程序集锦
- Windows-Tensorflow2.0.0-Keras2.3.1.zip
- MDP方法工具箱（MATLAB）
- MysqlHelper.cs
- Oracle企业级存储过程常用语句.txt
- redis服务(windows版)&redis可视化工具.rar
- 使用swoole实现udp服务 端，已经封装写好成对象方式
- TMS320C6678中文技术手册
- Xming Xserver for windows
- QoS原理，华为内部资料，很好讲述了QOS原理，绝对超值
- tomcat8.0--linux系统
- Android高仿QQ扫描二维码功能实现
- PowerLogic 5.0 软件
- 《MFC程序开发参考大全》pdf和代码
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明