如何如下要求自动替换memo.text中的内容 1.替换memo.text中所有连续两个空格为回车换行(每行末尾的空格除外)2.替换memo.text所有的全角字符为半角字符 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 memo1.text := StringReplace(memo1.text,' ',#13#10,[rfReplaceAll]); 1。用pos(' ',memo.text)找到连续的两个空格,然后用#13#10替换。2。全脚字符长度是二,比如全脚字符a,它是#163和#255,b是#163和#256也就是说第一个字符都是#163,第二个字符类推 最后的代码如下:var i:Integer; str1,str2:AnsiString; BlandFrist:Boolean; const strcn='£á£â£ã£ä£å£æ£ç£è£é£ê£ë£ì£í£î£ï£ð£ñ£ò£ó£ô£õ£ö£÷£ø£ù£ú£Á£Â£Ã£Ä£Å£Æ£Ç£È£É£Ê£Ë£Ì£Í£Î£Ï£Ð£Ñ£Ò£Ó£Ô£Õ£Ö£×£Ø£Ù£Ú£à£±£²£³£´£µ£¶£·£¸£¹£°£­£½£Ü¡«££¡ç£¥£Þ£¦£¨£©£ß£«£ü£Û£Ý£û£ý£¯£¼£¾£¿£ '; stren='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\~#$%^&()_+|[]{}/<>? ';begin for i:=1 to 87 do begin str1:=copy(strcn,2*i-1,2); str2:=copy(stren,i,1); DBMemo1.text:=StringReplace(DBMemo1.text,str1,str2,[rfReplaceAll]); end; i:=0; while (i<DBMemo1.Lines.Count) do begin if Trim(DBMemo1.Lines.Strings[i])='' then begin DBMemo1.Lines.Delete(i);continue;end; if pos(' ',Trim(DBMemo1.Lines.Strings[i]))>0 then begin DBMemo1.Lines.Strings[i]:= StringReplace(DBMemo1.Lines.Strings[i],' ',#13#10+' ',[rfReplaceAll]); i:=i-1; end; i:=i+1; end;end; delphi代码当前行背景为深灰色,怎么改回原来的白色? 如何调用一个自己编写的过程? 请教关于bmp转换jpg的问题 想开发一个TXClientDataSet控件,不知大家意见如何? 关于实习的问题,请教一下各位前辈 大家好!!!怎么制作CHM 格式的帮助文档?????用什么制作?????有没有教程????------- 在线等待!!! 主从表的效率问题 超简单的一个问题。。急!!! label控件是否有凹陷的效果? 表格如何实现分栏显示数据 SQL,高手求救!!!!! WINDOWS 2000 SERVER 启动盘从那里做? (在线)
2。全脚字符长度是二,比如全脚字符a,它是#163和#255,b是#163和#256也就是说第一个字符都是#163,第二个字符类推
最后的代码如下:
var
i:Integer;
str1,str2:AnsiString;
BlandFrist:Boolean;
const
strcn='£á£â£ã£ä£å£æ£ç£è£é£ê£ë£ì£í£î£ï£ð£ñ£ò£ó£ô£õ£ö£÷£ø£ù£ú£Á£Â£Ã£Ä£Å£Æ£Ç£È£É£Ê£Ë£Ì£Í£Î£Ï£Ð£Ñ£Ò£Ó£Ô£Õ£Ö£×£Ø£Ù£Ú£à£±£²£³£´£µ£¶£·£¸£¹£°£­£½£Ü¡«££¡ç£¥£Þ£¦£¨£©£ß£«£ü£Û£Ý£û£ý£¯£¼£¾£¿£ ';
stren='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\~#$%^&()_+|[]{}/<>? ';begin
for i:=1 to 87 do
begin
str1:=copy(strcn,2*i-1,2);
str2:=copy(stren,i,1);
DBMemo1.text:=StringReplace(DBMemo1.text,str1,str2,[rfReplaceAll]);
end; i:=0;
while (i<DBMemo1.Lines.Count) do
begin
if Trim(DBMemo1.Lines.Strings[i])='' then begin DBMemo1.Lines.Delete(i);continue;end;
if pos(' ',Trim(DBMemo1.Lines.Strings[i]))>0 then
begin
DBMemo1.Lines.Strings[i]:= StringReplace(DBMemo1.Lines.Strings[i],' ',#13#10+' ',[rfReplaceAll]);
i:=i-1;
end;
i:=i+1;
end;
end;