Question

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

多个memo控件分本写入和读取以#分割的多段文本，程序退出时保存memo里的内容改动！请写能通过的delphi7.0代码，谢谢高手们！
文本内容1=========读取到memo1
#
文本内容2=========读取到memo2
#
文本内容3=========读取到memo3
#
文本内容4=========读取到memo4
文本内容为不定长短，只识别#来判断，memo控件内容改变后还要保存到文本。

Answer 1

//读取
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;

Answer 2

主要代码:
TmpList.Delimiter := '#';
TmpList.DelimitedText := Memo1.lines.text;
不明白的Hi我

Answer 3

能给个文本列子不？