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
