（急）求delphi编程题

1、设数据集组件Table_T1已与数据表T1建立关联，如下代码要实现将数据表T1的第二个字段（T102）的所有数据项添加到TreeView1组件中，请写出相关事件及其代码。
 
2、请实现功能：通过FontDialog1组件设置RichEdit1组件中选定文本的字体属性。
（包括字号、字体、字体颜色、是否倾斜、是否加粗）
 
3、本程序设计界面及运行界面如下图所示。
    
该程序的功能是：用户在界面上的两个编辑框（Edit1、Edit2）内分别输入两个正整数M和N （ M < N），单击“计算”按钮（Button1），程序求出M ~ N 之间所有能被3整除的数，并在Memo 1对象中依次显示。
请编写单击“计算”按钮的事件处理程序。

答案：
1、假设Table_T1已打开，如果没有的话请加上
      Table_T1.open;
With Table_T1,treeView1 do
    begin
      first;
        while not eof do
        begin
            Items.Add(nil,Fieldbyname('T102').AsString);
            Next;
        end;
    end;
2、if FontDialog1.Execute then
     With RichEdit1.SelAttributes do
     begin
          Size:=FontDialog1.Font.Size;
          Name:=FontDialog1.Font.Name;
          Color:=FontDialog1.Font.Color;
          Style:=FontDialog1.Font.style;
     end;
3、
procedure TForm1.Button1Click(Sender: TObject);
var
      i:integer;
begin
      if strtointDef(Edit1.text,0)<StrtointDef(Edit2.text,0) then
      begin
             for i:=strtointDef(Edit1.text,0) to StrtointDef(Edit2.text,0) do
             begin
                   if i mod 3=0 then Memo1.Lines.Add(Inttostr(i));
             end;
      end;
end;

上一个：求毕业论文人事管理系统 （用Delphi编程）
下一个：求一本Delphi编程语言电子书