2025年计算机二级考试Delphi技能探讨试题及答案

2025年计算机二级考试Delphi技能探讨试题及答案一、单项选择题（每题2分，共20分）1.在Delphi中，以下关于VCL（可视组件库）的描述，正确的是（）。A.VCL仅包含可视化组件，不可视组件由CLX提供B.TComponent是所有VCL组件的基类，负责管理组件的生命周期和属性C.事件处理程序必须与组件的事件类型严格匹配，不能使用通用过程D.TForm的AutoSize属性设置为True时，窗口大小会随子组件的最小尺寸自动调整2.关于Delphi的事件驱动机制，下列说法错误的是（）。A.事件由用户操作（如点击按钮）或系统触发（如定时器超时）B.事件处理程序通过Assign方法绑定到组件的事件属性C.同一事件可以绑定多个处理程序，但执行顺序由绑定顺序决定D.TButton的OnClick事件触发时，Sender参数指向触发事件的按钮对象3.若要通过TADOQuery组件执行SQL语句“SELECTFROMStudentsWHEREAge>20”，并将结果显示在TStringGrid中，正确的操作顺序是（）。①设置AdoQuery1.SQL.Text为目标SQL语句②设置StringGrid1的列数与查询结果列数一致③调用AdoQuery1.Open方法④遍历AdoQuery1的记录集，填充StringGrid1的单元格⑤设置AdoConnection1的ConnectionString属性并连接数据库A.⑤→①→③→②→④B.①→⑤→③→②→④C.⑤→③→①→②→④D.⑤→①→②→③→④4.以下关于Delphi异常处理的描述，正确的是（）。A.try...except块只能捕获运行时异常，无法捕获编译错误B.在except块中使用raise语句会终止程序运行C.finally块中的代码仅在异常发生时执行D.自定义异常类必须继承自Exception的直接子类5.若需设计一个密码输入框（TEdit），要求输入时显示“”号，且禁止右键菜单，应设置的属性是（）。A.PasswordChar=''；ReadOnly=TrueB.PasswordChar=''；ContextMenu=nilC.PasswordChar=''；PopupMenu=nilD.PasswordChar=''；Enabled=False6.在Delphi中，TImage组件加载BMP图片时，若图片路径错误，会触发的异常类型是（）。A.EConvertErrorB.EListErrorC.EFOpenErrorD.EInvalidOperation7.关于TStringList组件的使用，以下代码的输出结果是（）。varsl:TStringList;beginsl:=TStringList.Create;sl.Delimiter:=',';sl.DelimitedText:='Apple,Banana,Orange';sl.Insert(1,'Grape');ShowMessage(sl[1]);sl.Free;end;A.AppleB.GrapeC.BananaD.Orange8.若要实现“点击按钮时，将TMemo中的文本保存为UTF-8编码的文本文件”，应使用的组件或函数是（）。A.TFileStream，设置编码为fmOpenWriteB.TStringList的SaveToFile方法，指定enUTF8编码C.TStreamWriter，构造时指定UTF8编码D.TMemo的Lines.SaveToFile方法，默认即为UTF89.以下关于TDataSet组件的状态（State）属性的描述，错误的是（）。A.dsBrowse状态表示数据集处于浏览模式，可读取但不可编辑B.dsEdit状态表示数据集处于编辑模式，修改后需调用Post方法保存C.dsInsert状态表示数据集处于插入模式，新增记录需调用Post方法提交D.dsCalcFields状态表示数据集正在计算字段值，此时禁止修改数据10.在Delphi中，实现多窗体程序时，主窗体关闭后其他窗体自动关闭的设置是（）。A.将其他窗体的Owner属性设置为主窗体B.将主窗体的CloseAction属性设置为caFreeC.在主窗体的OnClose事件中调用Application.TerminateD.将其他窗体的BorderStyle属性设置为bsSingle二、程序填空题（每空3分，共30分）1.以下代码实现“计算两个整数的和，若输入非整数则提示错误”，请补全空白处。procedureTForm1.btnCalcClick(Sender:TObject);vara,b,sum:Integer;begintrya:=StrToInt(edtA.Text);//输入框edtAb:=StrToInt(edtB.Text);//输入框edtBsum:=a+b;__（1）__:=IntToStr(sum);//结果显示在edtResult中__（2）__(E:Exception)ShowMessage('输入错误：'+E.Message);end;end;2.以下代码使用TADOQuery查询“Employees”表中薪资（Salary）高于平均薪资的记录，补全SQL语句和关键方法。procedureTForm1.btnQueryClick(Sender:TObject);beginAdoQuery1.SQL.Clear;AdoQuery1.SQL.Add('SELECTFROMEmployees');AdoQuery1.SQL.Add('WHERESalary>(SELECT__（3）__FROMEmployees)');//子查询求平均薪资__（4）__;//执行查询ifnotAdoQuery1.IsEmptythenStringGrid1.RowCount:=AdoQuery1.RecordCount+1//初始化表格行数elseShowMessage('无符合条件的记录');end;3.以下代码实现“定时器每隔1秒更新标签显示当前时间”，补全组件属性和事件处理。procedureTForm1.FormCreate(Sender:TObject);beginTimer1.Interval:=__（5）__;//设置定时周期（毫秒）Timer1.Enable:=__（6）__;//启动定时器end;procedureTForm1.Timer1Timer(Sender:TObject);beginlblTime.Caption:=__（7）__;//显示当前时间，格式为“HH:NN:SS”end;4.以下代码实现“树形控件（TTreeView）加载目录结构”，补全递归遍历逻辑。procedureTForm1.LoadDirTree(Dir:string;Node:TTreeNode);varSearchRec:TSearchRec;SubNode:TTreeNode;beginifFindFirst(Dir+'\.',faDirectory,SearchRec)=0then//查找目录下所有文件/目录beginrepeatif(SearchRec.Name<>'.')and(SearchRec.Name<>'..')then//排除当前/上级目录beginSubNode:=TreeView1.Items.AddChild(Node,SearchRec.Name);if(SearchRec.AttrandfaDirectory)=faDirectorythen//是目录__（8）__;//递归加载子目录，路径为Dir+'\'+SearchRec.Name，父节点为SubNodeend;untilFindNext(SearchRec)<>0;FindClose(SearchRec);end;end;procedureTForm1.FormShow(Sender:TObject);beginLoadDirTree('C:\',__（9）__);//从C盘根目录开始加载，根节点为空end;5.以下代码实现“动态创建按钮并绑定点击事件”，补全组件创建和事件绑定。procedureTForm1.CreateDynamicButton;varbtn:TButton;beginbtn:=TButton.Create(Self);//以当前窗体为Ownerbtn.Parent:=__（10）__;//指定父容器为当前窗体btn.Caption:='动态按钮';btn.Top:=100;btn.Left:=100;btn.OnClick:=DynamicBtnClick;//绑定自定义事件处理程序end;三、程序设计题（每题15分，共30分）1.设计一个Delphi程序，实现以下功能：（1）界面包含两个TEdit控件（edtInput）、一个TButton控件（btnReverse）和一个TMemo控件（mmoOutput）；（2）点击按钮时，将两个输入框中的字符串拼接后反转（如输入“AB”和“CD”，结果为“DCBA”）；（3）要求处理输入为空的情况（提示“输入不能为空”）；（4）将每次操作的结果追加到Memo中（格式为“[{时间}]原字符串：AB+CD→反转后：DCBA”）。2.设计一个基于TADO的学提供绩管理模块，要求：（1）使用TDataSource连接TDBGrid显示“Score”表（字段：StuID,Course,Score）；（2）提供“查询”功能：输入学生ID，显示该学生的所有课程成绩；（3）提供“添加”功能：输入学生ID、课程名、成绩，点击按钮后写入数据库（需验证成绩是否为0-100的整数）；（4）要求处理数据库连接异常（如无法连接时提示“数据库连接失败”）。四、综合应用题（20分）设计一个“文件批量重命名工具”，具体功能如下：（1）界面包含：TEdit控件（edtPath）：输入文件夹路径；TButton控件（btnBrowse）：点击选择文件夹，自动填充edtPath；TListBox控件（lbxFiles）：显示文件夹下所有文件（不包含子目录）；TEdit控件（edtPrefix）：输入重命名字符前缀（如“File_”）；TButton控件（btnRename）：点击后按“前缀+序号”规则重命名文件（如“File_001.txt”）；TMemo控件（mmoLog）：记录操作日志（如“重命名成功：OldName.txt→File_001.txt”）。（2）功能要求：选择文件夹后，自动刷新ListBox显示文件；重命名时按文件修改时间升序（最早修改的文件为001）；处理同名冲突（如目标文件名已存在时提示“文件已存在，跳过重命名”）；支持撤销操作（点击“撤销”按钮，恢复文件原名）。———答案———一、单项选择题1.B（TComponent是所有组件的基类，管理生命周期；VCL包含可视和不可视组件；事件可使用通用过程，需类型匹配；AutoSize随内容调整，非子组件最小尺寸）2.B（事件通过赋值绑定，如Button1.OnClick:=ClickProc；Assign用于组件属性复制）3.A（先连接数据库→设置SQL→打开查询→设置表格列数→填充数据）4.A（finally块无论是否异常都执行；raise会重新抛出异常；自定义异常可继承自任意Exception子类）5.C（PasswordChar控制显示字符；PopupMenu=nil禁止右键菜单；ContextMenu用于自定义菜单）6.C（EFOpenError是文件打开错误；EConvertError是类型转换错误）7.B（DelimitedText分割后列表为['Apple','Banana','Orange']，Insert(1,'Grape')在索引1处插入，结果为['Apple','Grape','Banana','Orange']）8.B（TStringList的SaveToFile支持指定编码参数；TMemo.Lines.SaveToFile默认ANSI）9.A（dsBrowse模式下可编辑，dsInactive表示未打开）10.C（主窗体关闭时调用Application.Terminate终止程序；Owner属性控制组件释放）二、程序填空题（1）edtResult.Text（2）except（3）AVG(Salary)（4）AdoQuery1.Open（5）1000（6）True（7）FormatDateTime('HH:NN:SS',Now)（8）LoadDirTree(Dir+'\'+SearchRec.Name,SubNode)（9）nil（10）Self三、程序设计题1.参考代码：procedureTForm1.btnReverseClick(Sender:TObject);vars1,s2,combined,reversed:string;i:Integer;begins1:=Trim(edtInput1.Text);s2:=Trim(edtInput2.Text);if(s1='')or(s2='')thenbeginShowMessage('输入不能为空');Exit;end;combined:=s1+s2;reversed:='';fori:=Length(combined)downto1doreversed:=reversed+combined[i];mmoOutput.Lines.Add(Format('[%s]原字符串：%s+%s→反转后：%s',[FormatDateTime('yyyy-mm-ddhh:nn:ss',Now),s1,s2,reversed]));end;2.参考代码（关键部分）：//查询功能procedureTForm1.btnQueryClick(Sender:TObject);varStuID:string;beginStuID:=Trim(edtStuID.Text);ifStuID=''thenExit;tryAdoQuery1.SQL.Text:='SELECTFROMScoreWHEREStuID=:ID';AdoQuery1.Parameters.ParamByName('ID').Value:=StuID;AdoQuery1.Open;exceptonE:ExceptiondoShowMessage('查询失败：'+E.Message);end;end;//添加功能procedureTForm1.btnAddClick(Sender:TObject);varStuID,Course:string;Score:Integer;beginStuID:=Trim(edtStuIDAdd.Text);Course:=Trim(edtCourse.Text);ifnotTryStrToInt(edtScore.Text,Score)or(Score<0)or(Score>100)thenbeginShowMessage('成绩需为0-100的整数');Exit;end;tryAdoQuery1.SQL.Text:='INSERTINTOScore(StuID,Course,Score)VALUES(:ID,:C,:S)';AdoQuery1.Parameters.ParamByName('ID').Value:=StuID;AdoQuery1.Parameters.ParamByName('C').Value:=Course;AdoQuery1.Parameters.ParamByName('S').Value:=Score;AdoQuery1.ExecSQL;ShowMessage('添加成功');AdoQuery1.Refresh;//刷新数据显示exceptonE:ExceptiondoShowMessage('添加失败：'+E.Message);end;end;四、综合应用题（核心实现逻辑）1.文件夹选择与文件显示：procedureTForm1.btnBrowseClick(Sender:TObject);varFD:TFolderDialog;beginFD:=TFolderDialog.Create(nil);tryifFD.ExecutethenbeginedtPath.Text:=FD.FileName;lbxFiles.Items.Clear;//遍历文件夹下所有文件ifFindFirst(edtPath.Text+'\.',faAnyFile,SearchRec)=0thenbeginrepeatif(SearchRec.AttrandfaDirectory)=0then//非目录文件lbxFiles.Items.Add(SearchRec.Name);untilFindNext(SearchRec)<>0;FindClose(SearchRec);end;end;finallyFD.Free;end;end;2.重命名逻辑（含排序与冲突处理）：procedureTForm1.btnRenameClick(Sender:TObject);vari,count:Integer;OldName,NewName,FullPath:string;FileList:TStringList;FileInfo:TSearchRec;beginFileList:=TStringList.Create;try//按修改时间排序文件FullPath:=edtPath.Text+'\';fori:=0tolbxFiles.Items.Count1dobeginOldName:=lbxFiles.Items[i];ifFindFirst(FullPath+OldName,faAnyFile,FileInfo)=0thenbeginFileList.AddObject(OldName,TObject(FileInfo.FindData.ftLastWriteTime));FindClose(FileInfo);end;end;//按修改时间升序排序（比较文件时间）FileList.CustomSort(@CompareFileTime);//执行重命名count:=1;fori:=0toFileList.Count1dobeginOldName:=FileList[i];NewName:=edtPrefix.Text+Format('%.3d',[count])+ExtractFileExt(OldName);ifFileExists(FullPath+NewName)thenbegi