如何取'A 0007'的右四位得到 '0007'?

Question

如何取'A 0007'的右四位得到 '0007'?

Answer 1

s := 'A 0007';
delete(s, 1, length(s)-4);

Answer 2

'A 0007' 前缀不固定 有可能是 'ABS 0007' 能不能取右四位？谢谢

Answer 3

能，
s:='Abx  sdd  0007';
s:=copy(s,pos('0'),length(s)-pos('0'));

Answer 4

s:='Abx  sdd  0007';
i:=lenght(s);
s:=copy(s,i-4,i);

Answer 5

s := 'A 0007';
delete(s, 1, length(s)-4);s:='Abx  sdd  0007';
i:=lenght(s);
s:=copy(s,i-4,i);
都是可以的。

Answer 6

ss:='fdgdgdg 0007';
ss:=copy(s,lenght(s)-4,lenght(s));

Answer 7

aiirii(ari-爱的眼睛) 最先搞定

Answer 8

right(S, 4);// 我觉得这个最简单

Answer 9

God, 最近写SQL写晕了，So Sorry

Answer 10

var i:string;
    l:integer;
begin
  i:='A 0077';
  j:=length(i);
  h:=copy(i,j-4+1,j);

Answer 11

showmessage(RightStr('A 0007',4));

Answer 12

使用 RightStr('A 0007',4)要叫入strutil的。