Cadena de texto

[[duilioisola]]

Utiliza bucles while y maneja el contador a mano, según te convenga

Código Delphi [-]
Var
str, str2:string;
I, a:integer;
begin
  str := 'BBBB-C0000754T20130517';
  str2 := '';
  i := 1;
  // Recorro la cadena
  while (i < length(str)) do
  begin
      // Si encuentro T
      if (str[i] = 'T') then
      begin
        // establezco la posicion final. 8 caracteres despues del que estoy
        a := i + 8;
        // recorro hasta llegar al octavo caracter
        while (i < a) do
        begin
          str2 := str2 + str[i];
          i := i + 1;
        end;
      end;
      i := i + 1;
  end;
end;