如何将字符串中的某个字符变为小写？？？(50分)

  • 主题发起人 主题发起人 ifbn
  • 开始时间 开始时间
I

ifbn

Unregistered / Unconfirmed
GUEST, unregistred user!
如何将字符串中的某个字符变为小写？？？ 我是各菜鸟，还请大家多多帮助！！谢谢
email:ifbn@8848.net
 
呵呵，刚写了一个过程，也许能解决你的问题。
function TForm1.ReplaceAll(AStr, AStrToReplace,
AReplaceStr: string): string;
var
Len, I: integer;
TmpStr, StrLeft: string;
begin
TmpStr := '';
StrLeft := AStr;
Len := length(AStrToReplace);
I := Pos(AStrToReplace, AStr);
while I <> 0do
begin
TmpStr := TmpStr + Copy(StrLeft, 1, I-1) + AReplaceStr;
StrLeft := Copy(StrLeft, I + Len , length(StrLeft) - I - Len + 1);
I := Pos(AStrToReplace, StrLeft);
if I = 0 then
TmpStr := TmpStr + StrLeft;
end;
Result := TmpStr;
end;

把要变成小写的字符用小写的替换就可以了，不过肯定不是最佳的解决方法，见笑了。
 
好久没有编程了， 今天难得看到一个简单一点的问题 ，好让我也拿点分吧。
function TForm1.UpcaseStr(Source: string;
C : Char): string;
var tmpStr : string;
i ,L: integer;
begin
tmpStr := Source;
i := 1;
L := Length(tmpStr);
while (i <= L ) and (tmpStr <> #0)do
begin
if (tmpStr = C ) then
tmpStr := UpCase(tmpStr);
Inc(i);
end;
Result := tmpStr;
end;
 
//呵呵检测字符不要我说了吧，我提供一个转换函数
function LoCase(const ch: char): char;
asm
{ -> AL Character }
{ <- AL Result }
CMP AL,'A'
JB @@exit
CMP AL,'Z'
JA @@exit
ADD AL,'a' - 'A'
@@exit:
end;
 
晕！
to ddev：
你把Delphi中的UpCase函数的源程序贴出来干嘛？ 难道还要自己写一遍？
直接调用UpCase不行吗？
 
//楼上那位仁兄真是高见！哈哈
//下面是 UpCase 的源码，你可以对照一下
function UpCase(const ch: char): char;
asm
{ -> AL Character }
{ <- AL Result }
CMP AL,'a'
JB @@exit
CMP AL,'z'
JA @@exit
SUB AL,'a' - 'A'
@@exit:
end;

借用 Delphi 源码中算法是我一贯的做法，可靠、简单！如此而已。
 
function TForm1.UppToLow(Source: string;Psour:char): string;
var
i:integer;
begin
if (ord(psour)>96)and(ord(psour)<123) then
begin
result:='';
i:=pos(psour,source);
while i>0do
begin
result:=result+copy(source,1,i-1)+chr(ord(source)-32);
source:=copy(source,i+1,length(source)-i);
i:=pos(psour,source);
end;
result:=result+source;
end
else
result:=source;
end;
 
其实在汇编中转大小写并不是用减法的, 而是用and/or的，
比如：
mov ax, 6361H ;ac
and ax, DFDFH ;AC
or ax, 2020H ;ac
这样效率高
 
var i:char;
设i是 a-z或A-Z的字符。（重要前提）

则byte(i):=byte(i) or $20;使i诺原为小写则变为大写，诺为大写则保持不变。
同理 byte(i):=byte(i) xor $20;
使i诺原为大写则变为小写，诺为小写则保持不变。
 
都到这份上了还没有答案呢,还是里我们而去了?
 
串：s:=LowerCase(s)
某个字符：s:=LowerCase(s)
或者：s:= LowerCase(s)[1]
这才是Delphi
 
您必须登录或注册才可回复。

Similar threads

不
B编码以及BT种子文件分析 - 不得闲
回复
0
查看
1K
不得闲
不
S
[杂谈]从 Delphi 源码中解析资源字符串
回复
0
查看
740
swish
S
S
[原]详解Variant 的相关函数
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
[原]详解Variant 的相关函数
回复
0
查看
900
SUNSTONE的Delphi笔记
S
S
[QString] QString 中那些与字符串解析相关的函数
回复
0
查看
855
swish
S
后退
顶部