如何取子串？？

Question

如何取子串？？比如说ABCD+冒号+EFG怎样直接取出EFG？？

Answer 1

var
  s:string;
begin
  s:='abcd:efg';
  s:=copy(s,6,6);
  showmessage(s);
end;

Answer 2

var
  s,TmpS:string;
  TmpI:integer;
begin
  s:='abadadffcd:eadaaffg';
  TemI:=pos(':',s);
  TmpS:=copy(s,TmpI+1,length(s));
  showmessage(TmpS);
end;

Answer 3

如果是两个冒号之间 可以这样
var
  s,TmpS:string;
  TmpI:integer;
begin
  s:='abadadffcd:eadaaffg';
  TemI:=pos(':',s);
  TmpS:=copy(s,TmpI+1,length(s));
  TemI::=pos(':',TmpS);
  TmpS:=copy(TmpS,0,TmpI-1);
  showmessage(TmpS);
end;