找出自己应用程序里面所有的中文字符串，替换为字符串变量，并将所有字符串放到一个文本文件中。
摘要：
procedure TForm1.Button1Click(Sender: TObject);const yh=#39;label redo,lr;var i,j,k,h,l,n,p0,p1,q, tf,ll,nl,idd : integer; stn,stc : array[1..20000] of string; sline,sl,st,stcode,fname,blm,bs0 : string; zf,chn,cf,chuan,yinhao: boolean; fi,fo : textfile;begin memo1.Lines.Clear; //放上一个memo控件 l:=0; h:= 阅读全文
posted @ 2011-08-15 07:31 dps 阅读(543) 评论(0) 推荐(0) 编辑
