救救小弟，请看看这个函数，(0分)

function TForm1.GetTableList(ATableName: string): string;
begin
Result := '';
with ADOQuery2 do
begin
if Active then
Close;
SQL.Text := 'select * from ' + ATableName;
Open;
First;
while not Eof do
//这一段是干什么用的
begin
Result := Result + Fields[1].AsString + #13#10;//这一段也不明白
Next;
end;
Close;

第一个是叛断数据表是否已到尾部从而决定是否结束循环
第二个是将返回值加上数据表中第二个字段的值

while not Eof do
//这一段是干什么用的
begin
Result := Result + Fields[1].AsString + #13#10;//这一段也不明白
Next;
end;
这一段的意思是分行输出数据表中的字段值，#13代表回车换行，程序先通过 Eof
来判断是否到表尾，如没到则运行下一行语句，否则退出。
函数最终输出结果就是表中Fields[1]字段值分行输出。

DODO说的很详细了。