如何从右向左取最后一个字符?

Question

我用TQRExpr 中的想取数据库字段的最后一个字符,这个字段可能是2,5,8位，位数不定 copy(Adoquery1.帐号,?,?) 我只能从左向右取，我如何能从右向左取，取出最后一个字符了？？？

Answer 1

copy(adoquery.帐号,length(adoquery.帐号),1);

Answer 2

adoquery.fileldbyname['a'].asstring[length(adoquery.fileldbyname['a'].asstring)];
//取最后一个字符

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  c: char;
  s:string;
begin
  s:='asdfasdf';
  c:=s[length(s)]; //取最右边的字符
  showMessage(c);
end;

Answer 4

copy(adoquery.帐号,length(adoquery.帐号),1);
还是这个方法比较简单啊!

Answer 5

大哥们关键是在Expr 中如何写大家上面所说的代码???

Answer 6

在EXPR里面也一样的写了,用COPY就可以了,不过那里面可能会太方便而你不适应的.