delphi memo分段写入和读取文本,文本分隔符:“#”

多个memo控件分本写入和读取以#分割的多段文本,程序退出时保存memo里的内容改动!请写能通过的delphi7.0代码,谢谢高手们!文本内容1=========读取到m... 多个memo控件分本写入和读取以#分割的多段文本,程序退出时保存memo里的内容改动!请写能通过的delphi7.0代码,谢谢高手们!
文本内容1=========读取到memo1
#
文本内容2=========读取到memo2
#
文本内容3=========读取到memo3
#
文本内容4=========读取到memo4
文本内容为不定长短,只识别#来判断,memo控件内容改变后还要保存到文本。
展开
 我来答 举报
cb120520025
2011-12-05 · TA获得超过347个赞
知道小有建树答主
回答量:323
采纳率:0%
帮助的人:571万
展开全部
//读取
var
sl :TStringList;
begin
sl := TStringList.Create;
try
sl.LoadFromFile('文本位置');
sl.Delimiter := '#';
sl.DelimitedText := sl.Text;
Memo1.Lines.Text := sl.Strings[0];
Memo2.Lines.Text := sl.Strings[1];
Memo3.Lines.Text := sl.Strings[2];
Memo4.Lines.Text := sl.Strings[3];
finally
FreeAndNil(sl);
end;
end;

//保存
var
sl :TStringList;
begin
sl := TStringList.Create;
try
sl.Text := Memo1.Lines.Text + '#' + Memo2.Lines.Text + '#' + Memo3.Lines.Text + '#' + Memo4.Lines.Text;
sl.SaveToFile('文本位置');
finally
FreeAndNil(sl);
end;
end;
luckyso111
2011-12-05 · TA获得超过208个赞
知道大有可为答主
回答量:261
采纳率:0%
帮助的人:233万
展开全部
主要代码:
TmpList.Delimiter := '#';
TmpList.DelimitedText := Memo1.lines.text;
不明白的Hi我
1 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
liuhongwei7949
2011-12-05
知道答主
回答量:11
采纳率:0%
帮助的人:4.5万
展开全部
能给个文本列子不?
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式