W wanglong0 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-19 #1 菜鸟想实现这样的一个功能:我在c盘上有一个叫bug的文本文件,文本文件里有很多字母,我想每按一次按钮就可删除文本文件的最后一个字母,怎么能做到呢???
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-19 #2 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;
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;