Delphi程序员的技能试题及答案

Delphi程序员的技能试题及答案一、基础技能题1.简述对象Pascal中类（Class）与结构（Record）的核心差异，并说明在何种场景下应优先使用结构。答案：对象Pascal中，类是引用类型，存储于堆内存，支持继承、虚方法、构造/析构函数等面向对象特性；结构是值类型，存储于栈或内联在对象中（如作为类的成员），默认不支持继承（Delphi2009+支持记录辅助类实现有限继承），无构造/析构函数（需通过Initialize/Finalize过程管理）。结构适用于轻量级数据封装场景，如坐标点（TPoint）、颜色值（TColor）等，因其值类型特性可避免频繁的堆内存分配，提升性能；而类适用于需要状态维护、行为扩展或多态的场景，如窗口控件（TForm）、数据库连接（TConnection）等。2.分析以下代码片段的潜在问题，并给出修正方案：```pascalprocedureTMainForm.LoadConfig;varFStream:TFileStream;FData:string;beginFStream:=TFileStream.Create('config.ini',fmOpenRead);SetLength(FData,FStream.Size);FStream.ReadBuffer(FData[1],FStream.Size);//后续处理FData...end;```答案：潜在问题包括：未正确释放TFileStream资源，可能导致内存泄漏；直接使用ReadBuffer读取字符串时，若文件内容包含非ANSI编码（如UTF-8）会导致乱码；未处理文件不存在的异常（fmOpenRead模式下若文件不存在会抛出EFOpenError异常）。修正方案：```pascalprocedureTMainForm.LoadConfig;varFStream:TFileStream;FData:string;begintryFStream:=TFileStream.Create('config.ini',fmOpenReadorfmShareDenyWrite);trySetLength(FData,FStream.Size);ifFStream.Size>0thenFStream.ReadBuffer(FData[1],FStream.Size);//若文件为UTF-8编码，需转换：FData:=TEncoding.UTF8.GetString(FStream.Memory,FStream.Size);finallyFStream.Free;end;exceptonE:EFOpenErrordoShowMessage('配置文件不存在：'+E.Message);end;//后续处理FData...end;```3.说明TStringList的OwnsObjects属性的作用，并解释以下代码是否会导致内存泄漏：```pascalvarList:TStringList;Obj:TMyObject;beginList:=TStringList.Create;List.OwnsObjects:=True;Obj:=TMyObject.Create;List.AddObject('Key',Obj);List.Delete(0);//删除索引0的项List.Free;end;```答案：OwnsObjects属性为True时，TStringList会在自身被释放或列表项被删除时，自动释放对应对象的内存。上述代码中，List.Delete(0)会触发对Obj的释放（因OwnsObjects为True），随后List.Free时列表已为空，不会重复释放。因此不会导致内存泄漏。但需注意：若在Delete前手动调用Obj.Free，会导致重复释放错误；若OwnsObjects为False，List.Free时不会释放Obj，需手动管理。4.写出实现“在运行时动态获取TForm1类的所有公共方法名称”的关键代码（使用RTTI）。答案：需使用System.Rtti单元中的TRttiContext和TRttiType。关键代码如下：```pascalusesSystem.Rtti;procedureGetFormMethods;varctx:TRttiContext;FormType:TRttiType;Method:TRttiMethod;beginctx:=TRttiContext.Create;FormType:=ctx.GetType(TForm1.ClassInfo);forMethodinFormType.GetMethodsdobeginif(Method.Visibility=mvPublic)thenOutputDebugString(PChar('方法名：'+Method.Name));end;end;```5.比较TButton的OnClick事件与TApplication的OnMessage事件的触发机制，说明前者是否可能在后者之前被调用。答案：TButton的OnClick事件属于VCL控件的用户交互事件，由Windows消息循环驱动。当用户点击按钮时，Windows发送WM_LBUTTONUP消息到按钮窗口，VCL通过TButton的WndProc处理该消息，最终触发OnClick事件。TApplication的OnMessage事件在应用程序处理任何Windows消息（如WM_PAINT、WM_KEYDOWN等）之前触发，用于全局消息钩子。因此，当按钮被点击时，消息流程为：Windows发送消息→应用程序OnMessage事件（预处理）→按钮WndProc处理→触发OnClick事件。因此，OnMessage事件总是先于具体控件的事件（如OnClick）被调用。二、进阶技能题1.解释Delphi中“引用计数”（ReferenceCounting）的实现机制，并说明接口（Interface）与动态数组（DynamicArray）的引用计数差异。答案：引用计数是Delphi管理内存的一种方式，通过维护对象的引用计数（RefCount），当计数降为0时自动释放内存。接口和动态数组均使用引用计数，但实现方式不同：接口：遵循COM规范，通过IUnknown接口的AddRef/Release方法实现。任何接口变量赋值时调用AddRef，变量作用域结束或被赋值为nil时调用Release，当Release后RefCount为0时释放对象。动态数组：由编译器隐式管理，当动态数组被赋值（如A:=B）时，编译器提供代码增加原数组的引用计数（若为共享数组），当变量离开作用域时减少计数，计数为0时释放内存。动态数组的引用计数不依赖IUnknown，而是通过数组头部的隐藏字段（RefCount）实现。2.设计一个线程安全的日志写入类TThreadedLogger，要求支持多线程并发写入文件，且避免因锁竞争导致的性能瓶颈。请给出核心类结构及关键方法的实现思路。答案：核心设计思路：使用生产者-消费者模式，日志线程作为消费者，其他线程作为生产者，通过线程安全的队列（如TThreadedQueue）传递日志任务。主线程（或调用线程）将日志内容压入队列，日志线程循环取出并写入文件，减少文件I/O的频繁加锁。使用TCriticalSection或TMultiReadExclusiveWriteSynchronizer（读写锁）保护队列操作，但因队列本身可能已线程安全（如TThreadedQueue的内部锁），可简化同步。核心类结构示例：```pascalusesSystem.Classes,System.SysUtils,System.SyncObjs;typeTLogItem=recordLogTime:TDateTime;Level:TLogLevel;//自定义枚举（如llDebug,llInfo,llError）Message:string;end;TThreadedLogger=class(TThread)privateFQueue:TThreadedQueue<TLogItem>;FFileName:string;FCS:TCriticalSection;//备用，若队列非完全线程安全procedureWriteLogToFile(constLogItem:TLogItem);protectedprocedureExecute;override;publicconstructorCreate(constFileName:string);destructorDestroy;override;procedureAddLog(Level:TLogLevel;constMessage:string);end;constructorTThreadedLogger.Create(constFileName:string);begininheritedCreate(True);//挂起状态，手动启动FFileName:=FileName;FQueue:=TThreadedQueue<TLogItem>.Create(1000);//最大队列长度1000FCS:=TCriticalSection.Create;FreeOnTerminate:=False;//手动管理生命周期Start;//启动线程end;destructorTThreadedLogger.Destroy;beginTerminate;FQueue.PushItem(nil);//发送终止信号（需调整TLogItem为指针或使用特殊标记）WaitFor;FQueue.Free;FCS.Free;inherited;end;procedureTThreadedLogger.AddLog(Level:TLogLevel;constMessage:string);varLogItem:TLogItem;beginLogItem.LogTime:=Now;LogItem.Level:=Level;LogItem.Message:=Message;FQueue.PushItem(LogItem);//线程安全的入队操作end;procedureTThreadedLogger.Execute;varLogItem:TLogItem;beginwhilenotTerminateddobeginifFQueue.PopItem(LogItem,100)=wrSignaledthen//等待100msbeginifTerminatedthenBreak;WriteLogToFile(LogItem);end;end;end;procedureTThreadedLogger.WriteLogToFile(constLogItem:TLogItem);varFS:TFileStream;LogText:string;beginLogText:=Format('[%s][%s]%s'1310,[DateTimeToStr(LogItem.LogTime),GetLevelName(LogItem.Level),LogItem.Message]);FCS.Enter;tryFS:=TFileStream.Create(FFileName,fmOpenWriteorfmCreateorfmShareDenyNone);tryFS.Seek(0,soEnd);//追加到文件末尾FS.WriteBuffer(LogText[1],Length(LogText)SizeOf(Char));finallyFS.Free;end;finallyFCS.Leave;end;end;```3.分析以下多线程代码的潜在问题，并提出改进方案：```pascaltypeTWorkerThread=class(TThread)protectedprocedureExecute;override;end;procedureTWorkerThread.Execute;beginwhilenotTerminateddobegin//耗时操作：计算10000次斐波那契数列DoComplexCalculation;//更新UI：显示进度Form1.ProgressBar1.Position:=Progress;end;end;```答案：潜在问题：直接访问主线程的VCL组件（Form1.ProgressBar1），VCL组件非线程安全，跨线程访问可能导致程序崩溃或界面假死。未处理Terminated标志的及时检测，若DoComplexCalculation耗时过长，线程无法及时响应终止请求。改进方案：使用Synchronize或Queue方法将UI更新操作同步到主线程。在耗时操作中插入Terminated检查点，确保线程可及时终止。修正代码示例：```pascalprocedureTWorkerThread.Execute;varI:Integer;beginwhilenotTerminateddobeginforI:=1to1000dobeginDoComplexCalculationStep;//拆分耗时操作为小步骤ifTerminatedthenBreak;end;ifnotTerminatedthenSynchronize(UpdateProgress);//同步到主线程更新UIend;end;procedureTWorkerThread.UpdateProgress;beginForm1.ProgressBar1.Position:=Progress;end;```4.说明Delphi中使用TQuery执行SQL语句时，参数化查询（ParameterizedQuery）的优势，并写出防止SQL注入的具体实现代码（以查询用户名为'Admin'且密码为'123456'为例）。答案：参数化查询的优势：防止SQL注入攻击：通过将用户输入作为参数传递，而非直接拼接字符串，避免恶意代码注入。提升性能：数据库可缓存参数化查询的执行计划，重复执行时减少解析开销。类型安全：参数会根据定义的类型自动转换，避免类型不匹配错误。具体实现代码（假设使用FireDAC的TFDQuery）：```pascalusesFireDAC.Stan.Param;procedureTMainForm.QueryUser;varUserName,Password:string;beginUserName:='Admin';Password:='123456';withFDQuery1dobeginSQL.Text:='SELECTFROMUsersWHEREUserName=:UserNameANDPassword=:Password';ParamByName('UserName').Value:=UserName;ParamByName('Password').Value:=Password;//或显式指定类型（可选）：//ParamByName('UserName').DataType:=ftString;//ParamByName('Password').DataType:=ftString;ExecSQL;Open;ifnotEofthenShowMessage('用户存在')elseShowMessage('用户不存在');end;end;```三、综合应用题1.设计一个支持多数据库类型（如MySQL、SQLServer、PostgreSQL）的通用数据访问模块，要求满足以下需求：支持动态切换数据库连接（通过配置文件指定类型和连接字符串）。提供统一的CRUD方法（Insert、Update、Delete、Select）。具备事务管理能力。请给出模块的类结构设计、关键方法实现及配置文件示例。答案：类结构设计：基类TBaseDataAccess：定义抽象CRUD方法和事务接口。派生类TMySQLDataAccess、TSQLServerDataAccess、TPgSQLDataAccess：实现具体数据库的连接和SQL语法适配（如自增字段获取、分页语法）。工厂类TDataAccessFactory：根据配置创建具体数据库访问实例。关键方法实现（以TBaseDataAccess为例）：```pascalusesFireDAC.Stan.Intf,FireDAC.Stan.Option,FireDAC.Stan.Error,FireDAC.UI.Intf,FireDAC.Phys,FireDAC.Phys.IB,FireDAC.Phys.IBDef,FireDAC.VCLUI.Wait,FireDAC.Stan.Async,FireDAC.Phys.FB,FireDAC.Phys.FBDef,FireDAC.Stan.Param,FireDAC.DatS,FireDAC.DApt.Intf,FireDAC.DApt,FireDAC.Comp.DataSet,FireDAC.Comp.Client,System.SysUtils,System.Classes;typeTDBType=(dtMySQL,dtSQLServer,dtPostgreSQL);TBaseDataAccess=class(TPersistent)protectedFConn:TFDConnection;FTransaction:TFDTransaction;procedureInitConnection(constConnStr:string);virtual;abstract;publicconstructorCreate(constDBType:TDBType;constConnStr:string);destructorDestroy;override;functionInsert(constTable:string;constParams:TFDParams):Integer;virtual;abstract;functionUpdate(constTable:string;constParams:TFDParams;constWhere:string):Integer;virtual;abstract;functionDelete(constTable:string;constWhere:string):Integer;virtual;abstract;functionSelect(constTable,Where:string;outData:TFDQuery):Boolean;virtual;abstract;procedureBeginTransaction;procedureCommitTransaction;procedureRollbackTransaction;end;constructorTBaseDataAccess.Create(constDBType:TDBType;constConnStr:string);begininheritedCreate;FConn:=TFDConnection.Create(nil);FTransaction:=TFDTransaction.Create(nil);FConn.Transaction:=FTransaction;caseDBTypeofdtMySQL:TMySQLDataAccess(Self).InitConnection(ConnStr);dtSQLServer:TSQLServerDataAccess(Self).InitConnection(ConnStr);dtPostgreSQL:TPgSQLDataAccess(Self).InitConnection(ConnStr);end;end;destructorTBaseDataAccess.Destroy;beginFConn.Free;FTransaction.Free;inherited;end;procedureTBaseDataAccess.BeginTransaction;beginFTransaction.StartTransaction;end;procedureTBaseDataAccess.CommitTransaction;beginFTransaction.Commit;end;procedureTBaseDataAccess.RollbackTransaction;beginFTransaction.Rollback;end;//MySQL具体实现示例typeTMySQLDataAccess=class(TBaseDataAccess)protectedprocedureInitConnection(constConnStr:string);override;publicfunctionInsert(constTable:string;constParams:TFDParams):Integer;override;end;procedureTMySQLDataAccess.InitConnection(constConnStr:string);beginFConn.DriverName:='MySQL';FConn.Params.DriverID:='MySQL';FConn.Params.Text:=ConnStr;FConn.Connected:=True;end;functionTMySQLDataAccess.Insert(constTable:string;constParams:TFDParams):Integer;varQuery:TFDQuery;beginQuery:=TFDQuery.Create(nil);tryQuery.Connection:=FConn;Query.SQL.Text:=Format('INSERTINTO%s(%s)VALUES(%s)',[Table,GetParamNames(Params),GetParamPlaceholders(Params)]);//辅助函数获取参数名和占位符（如"?,?"）Query.Params.Assign(Params);Query.ExecSQL;Result:=FConn.GetInsertID;//MySQL通过LAST_INSERT_ID()获取自增IDfinallyQuery.Free;end;end;```配置文件示例（config.ini）：```ini[Database]Type=MySQLConnectionString=Server=localhost;Port=3306;Database=TestDB;User=root;Password=123456;Charset=utf8;```2.某Delphi项目在Windows10下运行时出现内存泄漏，使用FastMM工具检测到泄漏信息如下：```Amemoryblockhasbeenleaked.Thesizeis:48Thestacktracewheretheblockwasallocated:402D8A[System][@GetMem]403163[System][@NewStr]4031A3[System][@UStrFromPCharLen]405E7D[System.StrUtils][AnsiReplaceStr]00405F2A[Projec