Código Delphi [-] r := copy(s, 1, 4) if r = 'MNSG' then begin Delete(s,1,4); ShowMessage (s); end;
r := copy(s, 1, 4) if r = 'MNSG' then begin Delete(s,1,4); ShowMessage (s); end;