看看语句有什么错误,立即给分!

[Nizvoo]

i := 0 ;
While i < ListBox1.Items.Count do
begin
Table1.Close ;
Table2.Close ;
TempName := ListBox1.Items[i] ;
Table1.Name := TempName ;
Table2.Name := TempName ;
Table2.EmptyTable ;
BatchMove1.Execute ;
i := i + 1 ;
end ;

[Nizvoo]

留下你的EMAIL吧?????
我发给你....图形吧....语句是没错误,我分开table1 与talbe2也没错,可是写在一块就出错......

[newyj]

Table1.TABLEName := TempName ;
Table2.TABLEName := TempName
~~~~~~~~~

[Nizvoo]

TO newyj(方恨少)　
Table1.TABLEName := TempName ;
Table2.TABLEName := TempName


请问这两句是怎么错,该如何改.我分开是可以的.DataBaseName我也赋过值的......

[Nizvoo]

谢谢.知道了..........谢谢.....啦
太粗枝大叶了.....

[hellion]

Table1.Name := TempName ;
Table2.Name := TempName ;
属性搞错了，Name是对象的名称

[Nizvoo]

谢谢各位,加分了.封贴了......

[路人丁]

TempName:=ListBox1.Items.Strings[i];

[Nizvoo]

hellion(恶人)　等我都加分了.....
谢谢各位...本来这些程序全做好了的.可惜硬盘遭了人的暗算.所以全部重写,心情一不好,头脑居然不听使唤,所以弄得个稀里糊涂,在这个关键时期,你们帮我渡过了难关.这只是万里长城的第一步,我是从五月份的程序开始改起的...整整四个月呢......程序原,与程序新(三个)我都快不行了.......还有值得一提的时,我硬盘中的所有东西,,,,,PHP的程序与我的网站的东西都没了,上次在主页上说我的PHP自动建站与自动维护的程序也一并惨遭毒害.....
[e-mail]
http://nizvoo.myrice.com