Memo换行问题
发布日期:2021-11-10 09:01:16 浏览次数:2 分类:技术文章

本文共 700 字,大约阅读时间需要 2 分钟。

我把Memo控件内容(包含换行)存入数据库以后,然后再从数据库中取出就成了一行字了,我想取出来的数据和输入的数据格式一样,怎么才能解决哪?

procedure   TFormDemo.ButtonWriteClick(Sender:   TObject);  

  begin  
      AdoQuery.SQL.Text   :=   'Insert   B(TextFile)   Values(:TextFile)';  
      AdoQuery.Parameters.ParamByName('TextFile').LoadFromFile('C:\odbcconf.log',   ftMemo);  
      AdoQuery.ExecSQL;  
  end;  
   
  procedure   TFormDemo.ButtonReadClick(Sender:   TObject);  
  begin  
      AdoQuery.SQL.Text   :=   'Select   TextFile   From   B';  
      AdoQuery.Open;  
      TMemoField(AdoQuery.FieldByName('TextFile')).SaveToFile('C:\TEST.TXT');  
      Memo.Lines.LoadFromFile('C:\TEST.TXT');  
  end;  
 

 

      把字段变为Memo类型,Delphi的回车标识是:   #13#10  
   
      如存储时     FieldByName('Memo').AsString   :=   Memo1.text   +   #13#10;

转载于:https://www.cnblogs.com/delphi2007/archive/2008/11/18/1335910.html

转载地址:https://blog.csdn.net/aibi9196/article/details/101304685 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!

上一篇:2007微软的Vista操作系统推出,请问现在的delphi编写的程序可以在此系统下运行吗?...
下一篇:一个非常奇怪的问题,高手请进!!(在线等。。。。。)

发表评论

最新留言

能坚持,总会有不一样的收获!
[***.219.124.196]2024年04月08日 21时34分21秒