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

Posted 2023-04-06

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

参考技术A 删除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; 参考技术B 如何区分有用和无用数据？
有规则才能操作。
如果是手动指定的话，只要取当前的line就可以了

delphi richedit

我用opendialog打开一个文本文件，并导入到richedit中，可是有些时候，导入的时候，滚动条都跑到了最下面，而有时候滚动条却在最上面。
我需要的是，不管什么时候，打开文本文件都上滚动条保持在最上面，该怎么写？或者是修改哪个属性？

参考技术A //把滚动条设置到顶部
SendMessage(RichEdit1.Handle,WM_VSCROLL,SB_TOP,0);