请教数据库转换为文本的问题。

Question

可能是超出了Memo的最大长度，建议分多次写入Memo并写入文件
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

直接对文件操作写入文件就行了，对于大批数据的输出，不要用memo

Answer 2

var
  S: string;
  vStringList: TStringList;
begin
  Screen.Cursor := crHourGlass;
  Button2.Enabled := False;
  vStringList := TStringList.Create;
  try
    S := '';
    Table1.Open;
    while not Table1.Eof do begin
      S := S + Table1.FieldByName('序号').AsString +',';
      S := S + Table1.FieldByName('所号').AsString +',';
      S := S + Table1.FieldByName('票号').AsString +',';
      S := S + Table1.FieldByName('消费金额').AsString +',';
      S := S + Table1.FieldByName('消费日期').AsString +',';
      vStringList.Add(s);
      Table1.Next;
    end;
    vStringList.SaveToFile('pq.txt');
  finally
    Screen.Cursor := crDefault;
    Button2.Enabled := True;
    vStringList.Free;
  end;
end;

Answer 3

txt文件里的字符数有限制，自定义一另外文件类型