100分寻求答案,数据库字符串

sa2000 2009-07-29 11:07:32
我想在richedit里输入以下格式aaa(回车)bbb(回车)ccc共三行文字到数据库memo字段,现想提取此字段数据时显示成一行数据,并且其中回车相应替换为#,即输出格式为aaa#bbb#ccc。
请大家看看有什么好方法,希望有完整代码测试,100分感谢。
...全文
83 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
sa2000 2009-07-30
  • 打赏
  • 举报
回复
感谢各位朋友,100分太少,大家分分吧。谢谢!
wxsan 2009-07-30
  • 打赏
  • 举报
回复
补发图片,不好意思,图发错了。

wxsan 2009-07-30
  • 打赏
  • 举报
回复
楼上几位已经说的差不多了,我这里也说一下吧

1、代码
procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
Strlst: TStringList;
StrResult: string;
begin
Strlst := TStringList.Create;
Strlst.Text := Memo1.Text; //或从数据字段中读出: AdoQuery.FieldByName('Memo').AsString;

try
for I:= 0 to strlst.count - 1 do
StrResult:= StrResult+ '#'+ Strlst[I];
edtResult.Text := StrResult;
finally
FreeAndNil(Strlst);
end;

end;


2、执行结果图:

有问题欢迎再讨论!!
骑牛上铂金 2009-07-30
  • 打赏
  • 举报
回复
读取出MEMO数据后加入以下代码:
var
s : string;
begin
s:=Memo1.Text;
s:=StringReplace(s,#13,'#',[rfReplaceAll]);
Memo1.Text:=s;
end;
火龙岛主 2009-07-30
  • 打赏
  • 举报
回复
function DerrickStr(Memo: TMemo): string;
var
i: integer;
begin
result := '';
if Memo.Lines.count < 1 then exit;
result := Memo.Lines.strings[0];
for i := 1 to Memo.Lines.count - 1 do
result := result + '#' + Memo.Lines.strings[i];
end;
de410 2009-07-30
  • 打赏
  • 举报
回复
Function (s:string)string;
begin
result:=AdjustLineBreaks(s,tlbsLF);
end;
//函数AdjustLineBreaks的目的是用来格式化字符串中的"回车/换行"符,并将结果返回;参数tlbsLF,将字符串里的回车符处理掉。
fjtxwd 2009-07-30
  • 打赏
  • 举报
回复
写了段可以完成该功能的
procedure TForm1.BitBtn1Click(Sender: TObject);
var i:Integer;
strs :TStrings;
begin
Memo1.Text:='';
strs := TStringList.Create;
strs.Assign(RichEdit1.Lines);
for i:=0 to strs.Count-1 do
begin
Memo1.Text:=Memo1.Text+strs[i];
if i<>strs.Count-1 then
Memo1.Text:=Memo1.Text+'#';
end;
end;
dinoalex 2009-07-29
  • 打赏
  • 举报
回复
stringlist.text:= memo字段值

就会自动分了
dinoalex 2009-07-29
  • 打赏
  • 举报
回复
赋值给 stringlist,stringlist会自动分截回车的

for i:= 0 to stringlist.count - 1 do
str:= str+ '#'+ stringlist[i];

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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