funcion split de una cadena

[ogalonzo]

Prueba con ExtractStrings(); intenta esto:

1. Deposita un TEdit, un TButton y un TMemo
2. Haz doble clic en el TButton y pon este código:
   

     Memo1.Lines.Clear();
     ExtractStrings([';'], [' '], PChar(Edit1.Text), Memo1.Lines);

3. Corre el programa, introduce una cadena separada con puntos y comas y listo, cuando hagas clic en el botón verás que el memo se llena con las cadenas.

Espero sirva.