Traspasar linea string

[Ricardo Alfredo]

existe alguna rutina a la cual le pase un string en el que contiene algun caracter especifico por ejemplo el @ y me devuelva un arreglo dinamico en el cual cada columna es el valor que se encuentra entre el caracter especial.
Por ejemplo
archivo texto

298@juan perez@san carlos@22/11/2004@jazmin
339@velencia saturnino@new york@11/02/2004@hortencia
98362@sebastian@los angeles de santiago@@primavera

y la funcion me devuelva un arreglo con los valores de la linea que le pase
como parametros.

por ejemplo asumiento que la funcion se llama SalStrTokenize

SalStrTokenize(str_linea,'@','@',strarreglo)

y el arreglo tenga

strarreglo[0]=298
strarreglo[1]=juan perez
strarreglo[2]=san carlos
strarreglo[3]=22/11/2004
strarreglo[4]=jazmin

[roman]

Podría funcionarte algo así:

Código Delphi [-]
var
  List: TStringList;

begin
  List := TStringList.Create;
  List.Delimiter := '@';
  List.DelimitedText := '298@juan perez@san carlos@22/11/2004@jazmin';

  {
    Aquí accedes a los elementos con List[0], List[1], List[2], etc.
  }

  List.Free;
end;

// Saludos

[Ricardo Alfredo]

gracias con eso me ayudas a solucionar mi problema