Question

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

数据是这样的，几十行里只有中间不确定几行有用，其它的不存。如图-----//上面N行无用数据-----select  //无用  ，但这一行是表格标题可，上面还有N行。-----------//无用-----------  //这有N行有用数据   //这有一空行--------- //三行无用数据---Return  ..//结尾，也属无用数据------    //还有N行无用数据 这是在memo里的数据显示，如何只把有用数据存入txt,谁帮我写出此段源码送分50-200不等

Answer 1

删除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;

Answer 2

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