1.将某目录多个dfm文件的某个汉字串替换成另外一个汉字串 (10分)============这个应该会的,关键的地方好像是,如果DFM文件如果是二进制保存的话,需要用文件流来读取,比一般的文本文件读取要难一点。替换的话,那就是 StringReplace()吧?某个目录下多个dfm文件,那就需要一个文件查找函数,前几天正好学习过,不难。unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm2 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);var filestream:TFileStream;begin filestream:=TFileStream.Create('Unit2.dfm',fmOpenRead); try memo1.Lines.LoadFromStream(filestream); finally filestream.free; end;end;end.2.主表 (20分) in (master_id varchar(10)) 从表 in_detail (serial_id 手动编号 varchar(10),master_id varchar(10) 复制主表,item_id varchar(10) 复制自items ,qty integer) items(item_id 手动编号 varchar(10),item_name varchar(50) 要求 从表 用 stringgrid等非感知grid ,需要显示 关联表item_name 做出 items 单表编辑 in,in_detail 关联编辑 in_detail 需要显示items 的选择框=======数据库还没有学,不过StringGrid控件到经常用,我的一个EXE就用了这个控件。现在学会了插入TCombobox TSpinEdit控件,常见的属性也比较熟悉了。学会了自画一个选中列,就是每行显示一个 TCheckbox,但不是用那个控件,是直接画的图片。也会了,当前行显示整行背景颜色。3.做一个文件分割,重新组合的工具 (10分)===这个没有学过,估计也是需要文件流的知识吧。4.做一个自动登录某网站 (无图片验证)的程序 (10分)============这个做过,用TWebbrowser的procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); overload;最关键的就是,如何构建这个var PostData。另外用WININET函数也可以。不过用的是人家封装好的HTTP单元。5.做一个图片旋转,缩小,放大,图片上加文字的程序(10分)====图片放大,缩小没有学过,旋转的意思其实就是坐标变换和平移。图片上加文字,前几天刚尝试过,发现好像不能直接加,不过可以实现这个效果,就是图片上放个PaintBox,然后在上面话,效果一样。6.做一个 登录 后进主操作界面 的程序( 可以考虑切换到登录界面) (10分)===似乎不难,不过没有做过类似的。7.做一个 点击 就随机变颜色的 Tlabel控件 (10分)===这个关键是这样吧,然后做成组件?procedure TForm2.Label1Click(Sender: TObject);begin Randomize; Label1.font.Color:=rgb( Random(255),Random(255),Random(255));end;8.在一个TEdit输入一个字符串,要求转换成integer ,float, hex ,计算其每个字符的ord合计,并在Tmemo输出 (10分)=======hex 没有完过。strtoIntDef();strtofloatdef();计算其每个字符的ord合计,并在Tmemo输出var i,S: Integer;begin for i := 1 to length(Edit1.text) do s:=s+ord(edit1.Text); memo1.lines.Add(Inttostr(s)); end;9.将某行汉字 的汉字全拼音 显示出来,不考虑多音字 (10分)====这个好像不会,只看到有取声母的函数。对汉字编码还不熟悉。不过这样的转换,都是查表式的。