如果将行记录导出文本文件（txt）

Question

如果将行记录导出文本文件（txt）

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
sli:TStringList;
i:integer;
begin
  if DBGrid1.SelectedRows.Count>0 then
  if SaveDialog1.Execute then begin
  sli:=TStringList.Create;
  try
   for i:=0 to DBGrid1.SelectedRows.Count-1 do begin
     ADOQuery1.GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
     sli.Add(ADOQuery1.FieldValues['字段1']+','+ADOQuery1.FieldValues['字段2']);
  end;
  sli.SaveToFile(SaveDialog1.FileName);
  finally
   sli.Free;
  end;
  end;
end;

Answer 2

 sli.Add(ADOQuery1.FieldValues['字段1']+','+ADOQuery1.FieldValues['字段2']);
请问大家按现在方法导出的时候，是以“，”进行隔开的，我想让每一个字段都从新换一行怎么样进行处理呀。
例如：
 sli.Add(ADOQuery1.FieldValues['字段1']);
 sli.Add( ADOQuery1.FieldValues['字段2']);
请问大家如何解决

Answer 3

sli.Add(ADOQuery1.FieldValues['字段1']+#13+ADOQuery1.FieldValues['字段2']);
加回车符#13可以吗？