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;