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 lengt
Delphi编写的数据库系统初始化程序源码，Delphi7.0版本开发的，请将名为qygl的脚本文件拷贝到应用程序所在的目录，注意，初始化会清空数据表中所有数据，在使用时小心，建议在使用前进行数据备份，以防止误删除数据造成数据丢失。相关的源代码： if Application.MessageBox(确实要进行初始化吗?,提示,mb_YesNO) = Id_Yes then begin if FileExists(ExtractFilePath(application.Exe
Delphi7.0获取完整的日期时间显示在窗口的输入框中，把当前的日期和时间显示在文本框中，是按照标准的时间格式来显示。包括了当前日期和时间，时间包括了时分秒的显示，获取这些信息并显示，其实挺简单，如下代码可参考： 获取当前时间： class function TClass1.Foo1: String; begin Result := Foo1 is called! Self.GetTickTime; end; 获取当前日期包括格式： class functi
