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

发布网友发布时间：2022-04-27 12:36

共3个回答

热心网友时间：2022-04-27 14:05

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

热心网友时间：2022-04-27 15:23

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

热心网友时间：2022-04-27 16:58

能给个文本列子不？