Q qingwen07 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-01 #4 还有就是给它赋个空值,很简单的方法就是拖个MEMO上去,把MEMO里的东西清空,然后Memo.savefileto('FileName');就OK了!
M Mike1234567890 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-01 #5 最简单的方法就是使用TStrings类<br>function tst(fn:String):Integer<br>var<br> ts:TStrings;<br> i:integer; <br>begin<br> Result:=0;<br> ts:=TStringList.Create;<br> if ts<>nil then<br> begin<br> ts.LoadFromFile(fn); <br> for i:=ts.Count-1 downto0 do<br> begin<br> if ts.Strings='' then<br> begin<br> ts.Delete(i);<br> end;<br> end;<br> Result:=1;<br> end;<br>end;<br><br>注意：循环的时候一定要从后向前，这样当函数返回1的时候就没有空行了
最简单的方法就是使用TStrings类<br>function tst(fn:String):Integer<br>var<br> ts:TStrings;<br> i:integer; <br>begin<br> Result:=0;<br> ts:=TStringList.Create;<br> if ts<>nil then<br> begin<br> ts.LoadFromFile(fn); <br> for i:=ts.Count-1 downto0 do<br> begin<br> if ts.Strings='' then<br> begin<br> ts.Delete(i);<br> end;<br> end;<br> Result:=1;<br> end;<br>end;<br><br>注意：循环的时候一定要从后向前，这样当函数返回1的时候就没有空行了
