字符的处理(50分)

B

bin_75

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-01

• #1

请问Delphi中有没有类似VB中的Right()函数用以提取最右边的几个字符。

 

L

lanjiancn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-01

• #2

自已写一个
Function Bcopy(souString:string;BStart,Num:word):String;
Begin
if BStart=1 then
begin
if Num=1 then
Result:=Copy(SouString,length(souString),Num)
else
Result:=Copy(SouString,length(souString)-Num+1,Num);
end
else
Result:=Copy(SouString,length(souString)-Bstart,Num);
End;

给分

 

W

wind_cloudy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-01

• #3

用copy(str,strlen(str)-i,i)

 

J

jennykiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-01

• #4

当然有了，

function Copy(S
Index, Count: Integer): string;
随便你拷贝几个字符。

 

L

lixin0328

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-01

• #5

利用pchar类型直接操作既可以了

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-01

• #6

SubString(1,10)

 

B

bin_75

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-01

• #7

谢谢，不过似乎wind_cloudy的答案是可行的！lanjiancn是不是过于复杂了，
不过还是给点分。