如何提出一个字符串的后几位？？？

Question

比如 123456 我要提出后3位 赋值变量 aaaa 用什么函数啊

Answer 1

StrUtils
function LeftStr(const AText: string; ACount: Integer): string;

Answer 2

RightStr(const AnsiString AText, int ACount);
人家要后边几位，又不是前边几位。

Answer 3

比如：
eidt1.text:='123456';
rithtstr（edit1.text, 3)的值就为'456';

Answer 4

StrUtils
function LeftStr(const AText: string; ACount: Integer): string;
看帮助了，很详细的

Answer 5

Str:= '123456';
     aaa:= Copy (Str,4,3);
     Edit1.Text := aaa;用Copy函数也可以。

Answer 6

以前不会用RightStr时写过一会很烂的函数。
在这献下丑function TForm1.CutStringFromN(str:string;n:integer;kind:integer):string;
var i,j:integer;
    return_str:string;
begin
//STR:要截取的字符串;
//N:要截取到的第几个字符;
//KIND:值为1时表示截取第几个字符后面的字符串,值为2时表示要截取第几个字符前面的字符串;
 return_str:='';
 if kind=1 then
 begin
  j:=n;
  for i:=1 to length(str)-n+1 do
   begin
     return_str:=return_str+str[j];
     inc(j);
   end;
  end;
  if kind=2 then
  begin
   j:=1;
   for i:=1 to n-1 do
     begin
      return_str:=return_str+str[j];
      inc(j);
     end;
  end;
   result:=return_str;
end;

Answer 7

eidt1.text:='123456';
rithtstr（edit1.text, 3)

Answer 8

aaa:=copy(pchar(str),length(str)-3,3)