怎么截取相应的字符串？

Question

例如我有一系列的序号资料，格式如下
xxxxxx-LR-XXXXX
XX-LR-XXXXXXXXX
XXXX-LR-XXXXXXX
那么我如何分别取出他们LR开始的后半部分的字符串，例如第一个序列号xxxxxx-LR-XXXXX，我希望得到LR-XXXXX这个字符串

Answer 1

var
    S : String;
begin
    S      :=    'xxxxxx-LR-XXXXX' ;
    Result :=    copy( S , Pos('LR',S) , Length(S)-Pos('LR',S)+1 );
end;//非技术题?  切~~~

Answer 2

copy(str, pos('LR', str), maxint)