怎样将一段文字保存到数据库中

martinhan 2003-08-22 01:42:33
我想将一段文字保存到数据库中,这段文字有一定的格式,从数据库取出来的时候也要求保持原来的格式:举个例子
我想把下面这段话保存,同时取出来时也是这个格式。我现在做的取出来时是一段中间没有空格换行什么的。

///////Begin FileGetDate
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := FileOpen(Edit1.Text, fmOpenRead);
if I < 0 then Exit;
SpinEdit1.Value := FileGetDate(I);
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
FileClose(I);
end;
///////End FileGetDate///////Begin FileGetDate
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := FileOpen(Edit1.Text, fmOpenRead);
if I < 0 then Exit;
SpinEdit1.Value := FileGetDate(I);
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
FileClose(I);
end;
///////End FileGetDate
...全文
103 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
jpyc 2003-08-22
  • 打赏
  • 举报
回复
用MEMO/RICHEDIT就没这样的问题了
lxpbuaa 2003-08-22
  • 打赏
  • 举报
回复
var
Strs: TStrings; begin
Strs := TStringList.Create;
Strs.LoadFromFile('g:\aa.txt');
Field.AsString := Strs.Text;
Strs.Free;
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧