当前位置: 首页 > 工具软件 > C++Memo > 使用案例 >

Memo换行问题

丌官哲彦
2023-12-01
Memo换行问题 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061222223342174.html
我把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

 类似资料: