delphi 如何把memo或richedit里的数据存入txt

删除Memo中少于设定字符数的无用行后存盘到 fnm。

function SaveTxt(fnm: String; memo: TMemo): Boolean;
const
min = 5; //一行中少于5个字符就放弃不保存，包括空行
var
i,ct: Integer;
sl: TStrings;
ss: String;
begin
Result := False;
sl := TStringList.Create;
ct := memo.Lines.Count;
if ct > 0 then begin
for i := 0 to ct - 1 do begin
ss := memo.Lines[i];
if Length(ss) > 5 then sl.Add(ss);
end;
end;
sl.SaveToFile(fnm);
sl.Free;
end;

如何区分有用和无用数据？
有规则才能操作。
如果是手动指定的话，只要取当前的line就可以了