即然已知最后是空行了,就用
memo1.text:=''
memo1.text:=''
解决方案 »
- delphi用什么皮肤比较好看?
- 数据怎么删除不掉,是那里算法有问题??急
- 为什么MDI子窗体一显示,系统就用MDI的子窗体菜单取代了MDI的主菜单?我怎么在保留MDI主窗口菜单的情况下,往主菜单里面添加我的子窗体菜
- 求delphi中,能复制文件的代码
- rave的菜鸟问题
- RAve 報表detail 區只打印10條記錄
- 不知啥原因?请高手指教
- 一个很长的字符串,如何分两行书写?例如...
- 我想学Delphi的Win32开发,以前是用VB的,不知Delphi的智能感知有没有,好不好用??
- 大侠们,快来帮帮我啊!
- delphi控件如何安装?
- 高手:怎么用delphi编写能在vcd机上播放的东西?比如把图片转化为能在vcd机上播放的?
var
len: Integer;
begin
Len := Length(Memo1.Lines.Text);
if (Memo1.Lines.Text[Len - 1] = #$D) and (Memo1.Lines.Text[Len] = #$A) then
Memo1.Lines.Text := copy(Memo1.Lines.Text, 0, Length(Memo1.Lines.Text) - 2);
end;