delphi中，我想去字符串最有边的5位，有函数吗？

Question

delphi中，我想去字符串最有边的5位数，有函数吗？

Answer 1

sorry,题目有点打错了，是：
delphi中，我想留字符串最右边的5位数，有函数吗？

Answer 2

朋友很多也可以用strleft(string,5),它在strutils中但对于中文字就会出现问题上面朋友说的也会出现这一问所以你要另外写一个要判断是不是中文字的高字节或是低字节以达到取是完整的中文字我在这里的论谈看到过有个朋友写过这样的东西

Answer 3

是最右边的可以用rightstr(string,5),哦我上面的也打字了对不起哦

Answer 4

var
  s:string;
begin
  copy(s,length(s)-5,5);
end;

Answer 5

uses
  StrUtils ......{其他代码}Var
  SourceString:string;
  YourStr:String;
 .....  YourStr:=RightStr(SourceString,5);  .....

Answer 6

var
  s:string;
begin
  copy(s,length(s)-5,5);
end;

Answer 7

Delphi 6 中可用 s:=RightStr(s,5);
Delphi 7 中變為 s:=RightBStr(s,5);

Answer 8

uses  StrUtils
...
rightstr(str, 5);

Answer 9

s:=copy(s,length(s))-5,5);
s:=RightStr(s,5);都可以的

Answer 10

s:=copy(s,length(s))-5,5);
s:=RightStr(s,5);
//注意一个是ANSI字符集，一个是Unicode字符集。