我几道Delphi的题，你能帮帮我吗? 很急，谢谢了！

[mojessica]

1、以下是一个简单遍历Table1中全部记录的方法，将程序补充完整。
Table1．DisableControls;
Table1．First;
While not Table1．Eof do
Begin
<处理当前记录>
___________________
End;
Table1．enableControls;
2、以下程序段完成___________________ 的功能，并将结果放在Memo1中
procedure TForm1.Button1Click(Sender: TObject);
var
n, m, i, s : integer;
f : single;
begin
For n := 1 To 50 Do
begin
m := 2 * n + 1;
s := 0;
i := 2;
f := StrToFloat(inttostr(m));
While (i <= Sqrt(f)) and (s = 0) do
If m Mod i = 0 Then s := 1 else i := i + 1;
If s = 0 Then Memo1.Lines.Add(inttostr(m));
end;
end;
3、在窗体上放置Ttable、Tdatasource、TDBgrid、TButton、TOpendialog组件各一个，在Button1的onclick事件设计如下代码，实现一个动态打开表文件的功能。假设所有组件的属性已经设置完毕，请补充程序。
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.close；
if opendialog1.execute then
begin
table1.tablename:=_______________________;
table1.open;
end;
end;
4、以下程序段是判断当前记录是否处于数据集的第一条记录，请将程序补充完整。
MyTable．DisableControls ;
Try
While______________ do
Begin
…
MyTable．Prior;
End;
Finnly
MyTable．enableControls;
End;
5、以下程序段是利用query组件删除一个存储过程Mystoredproc，请将程序补充完整。
With query1 do
Begin
Paramcheck := False;
With SQL do
Begin
Clear;
______________________
End;
Excelsql;
End;
6、以下程序段是实现将 ‘姓名’字段的值改为‘张三’，请将程序补充完整。
With table1 do
Begin
Table1.edit;
___________________
Table1.post;
End;
7、假设所有变量均已说明,按钮Button1的OnClick事件代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := 'asdf'
edit1.Text := UpperCase(edit1.Text);
edit1.SetFocus ;
end;
则执行以上程序后edit1.Text为___________
8、以下是一个简单遍历Table1中全部记录的方法，将程序补充完整。
Table1．DisableControls;
Table1．First;
While not Table1．Bof do
Begin
<处理当前记录>
___________________
End;
Table1．enableControls;
9、以下程序段是利用query组件删除一个存储过程，请将程序补充完整。
With query1 do
Begin
Paramcheck:=False;
With SQL do
Begin
Clear;
______________________
End;
Excelsql;
End;
10、在窗体上放置Ttable、Tdatasource、TDBgrid、TButton、TOpendialog组件各一个，在Button1的onclick事件设计如下代码，实现一个动态打开表文件的功能。假设所有组件的属性已经设置完毕，请补充程序。
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.close；
if opendialog1.execute then
begin
table1.tablename:=_______________________;
table1.open;
end;
end;
11、以下程序段是实现将 ‘姓名’字段的值改为‘张三’，请将程序补充完整。
With table1 do
Begin
Table1.edit;
___________________
Table1.post;
End;

[zhihaozwj]

這些應該是很初級的問題。

[byteh]

唉

[tjg5202]

怎么发了重复的问题。。如果楼主仔细观察，不难发现其实有的题目之间还是有联系的。。。

[starluck]

原來是找找剪剪，看了不用回了！1

[jinjazz]

这个应该楼主自己动手解决...

[gwhdaxia]

都是很简单的东西，你查查书，自己写一写

[阿三]

[Quote=引用 5 楼 jinjazz 的回复:]
这个应该楼主自己动手解决...
[/Quote]
拒答了

[Corn1]

1. Table1.Next;
2. 3-101之内的全部素数
3. OpenDialog1.FileName;
4. not MyTable.BOF;
5. Add('drop procedure Mystoredproc');
6. Table1.FieldByName('姓名').AsString := '张三';
7. 'ASDF'
8,9,10,11题和以上的重复。

[yct0605]

[Quote=引用 6 楼 gwhdaxia 的回复:]
都是很简单的东西，你查查书，自己写一写
[/Quote]

{还是自己好好看看书吧}

[de410]

兄弟是不是应付自己啊~~

[mojessica]

我没有学过Delphi，可是突然有人让我做这些题，所以麻烦各位了，呵呵。还是谢谢大家的发帖。

[jjwang2004]

分数蛮诱人的。O(∩_∩)O哈哈~

[jjwang2004]

答案8楼已经给出了。

[mojessica]

我打算还是自己再看看书，呵呵，结贴去了。谢谢各位的忠告。

[7年]

复习下。