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

I

ifbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-14

• #1

如何将字符串中的某个字符变为小写？？？ 我是各菜鸟，还请大家多多帮助！！谢谢
email:ifbn@8848.net

 

D

duckstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-14

• #2

呵呵，刚写了一个过程，也许能解决你的问题。
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;

把要变成小写的字符用小写的替换就可以了，不过肯定不是最佳的解决方法，见笑了。

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-14

• #3

好久没有编程了， 今天难得看到一个简单一点的问题 ，好让我也拿点分吧。
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;

 

D

ddev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-15

• #4

//呵呵检测字符不要我说了吧，我提供一个转换函数
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;

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-15

• #5

晕！
to ddev：
你把Delphi中的UpCase函数的源程序贴出来干嘛？ 难道还要自己写一遍？
直接调用UpCase不行吗？

 

D

ddev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-15

• #6

//楼上那位仁兄真是高见！哈哈
//下面是 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 源码中算法是我一贯的做法，可靠、简单！如此而已。

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-15

• #7

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;

 

I

Iknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-15

• #8

其实在汇编中转大小写并不是用减法的, 而是用and/or的，
比如：
mov ax, 6361H ;ac
and ax, DFDFH ;AC
or ax, 2020H ;ac
这样效率高

 

F

firemeteor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-16

• #9

var i:char;
设i是 a-z或A-Z的字符。（重要前提）

则byte(i):=byte(i) or $20;使i诺原为小写则变为大写，诺为大写则保持不变。
同理 byte(i):=byte(i) xor $20;
使i诺原为大写则变为小写，诺为小写则保持不变。

 

陈

陈晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-23

• #10

都到这份上了还没有答案呢,还是里我们而去了?

 

龙

龙丹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-23

• #11

串：s:=LowerCase(s)
某个字符：s:=LowerCase(s)
或者：s:= LowerCase(s)[1]
这才是Delphi

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #12

[8D]