Procedimientos para separar cadenas

[[seoane]]

Empezado por roman

Por ello me interesa ver cuál es el código de ixMike.

¿no te interesa ver el mio?.

Código Delphi [-]
function Token(Sub: string; var S: string): string;
begin
  Result:= '';
  while Length(S)>0 do
  begin
    if AnsiSameText(Copy(S, 1, Length(Sub)), Sub) then
    begin
      Delete(S, 1, Length(Sub));
      break;
    end;
    Result:= Result + Copy(S,1,1);
    Delete(S,1,1);
  end;
end;


// Un ejemplo de uso
var
  S: string;
begin
  S:= 'uno[sep]dos[sep]tres';
  while Length(S)>0 do
    ShowMessage(token('[sep]',S));
end;

No se si te acuerdas de Pico, el micro servidor web que postee por aquí hace unos meses, pues cuando estuve creando a su hermano mayor tuve que crear muchas funciones parecidas para manejar cadenas porque me había empeñado en no usar la unit classes para así hacerlo mas pequeño. Pero eso ya es otra historia, y ya no te cuento cuando intente trasladarlo todo a C ... Que forma de complicarse la vida por diversión