菜鸟想实现这样的一个功能:我在c盘上有一个叫bug的文本文件,文本文件里有很多字母,我想每按一次按钮就可删除文本文件的最后一个字母,怎么能做到呢???(30分)

  • 主题发起人 主题发起人 wanglong0
  • 开始时间 开始时间
W

wanglong0

Unregistered / Unconfirmed
GUEST, unregistred user!
菜鸟想实现这样的一个功能:我在c盘上有一个叫bug的文本文件,文本文件里有很多字母,我想每按一次按钮就可删除文本文件的最后一个字母,怎么能做到呢???
 
procedure TForm1.Button1Click(Sender: TObject);//读入

begin
memo1.Lines.LoadFromFile('c:/bug.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);//删除,但要注册回车与换行符
var
str: string;
begin
str := memo1.Text;
delete(str,Length(memo1.Text),1);
memo1.Text := str;
//在这里保存或者在其它地方保存文件内容
end;
 
接受答案了.
 
后退
顶部