救救小弟，请看看这个函数，

Question

while not Eof do//判断数据库是否已到尾 Result :=  Result + Fields[1].AsString + #13#10;//加回车换行

Answer 1

我问Result + Fields[1].AsString 是什么意思

Answer 2

while not Eof do//这一段是干什么用的
    begin
      Result :=  Result + Fields[1].AsString + #13#10;//这一段也不明白
      Next;
    end;这一段是循环输出表中的第二个字段的值，以字符串的格式输出
#13#10这个相当于回车
Fields[1].AsString 以字符串的格式输出第二个字段的值

Answer 3

Result :=  Result + Fields[1].AsString 是对第二个字段进行字符串累加例如：第一行记录第二个字段值：'ABC',
      第二行记录第二个字段值：'BDE',
      第三行记录第二个字段值：'DSF',
      第四行记录第二个字段值：'SDF'；对值进行累加：'ABC'+#13+#10+'BDE'+#13+#10+...#13的意思是将数字13转换成ASCII码字符；13是回车的ASCII值;
通过循环得到的结果是：
Result:=
'
ABC
BDE
DSF
SDF
'
因为#13#10是回车换行符，所以会折行！