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;
完整实例需要下载本源码。
1