Uso de Delphi TStringList

No existe una función de división en Dephi como en VB, pero usando las propiedades Delimter y DelimtedText de la clase TStringList, puedes dividir fácilmente la cadena y ponerla en TStrings.

Ejemplo :

s:='aa,bb,cc,dd'

ts:= TStringList.Create

ts.Delimter:= ','< / p>

ts.DelimtedText:= s

// En este momento, las cuatro cadenas aa bb cc dd están almacenadas en ts. Solo necesitas pasar ts [0] para obtener la primera. datos

función SplitString(Source, Deli: string): TStringList; stdcall;

var

EndOfCurrentString: byte;

StringList ： TStringList;

comenzar

StringList：=TStringList.Create;

mientras Pos(Deli, Fuente)gt 0

comenzar;

EndOfCurrentString:= Pos(Deli, Fuente);

StringList.add(Copy(Fuente, 1, EndOfCurrentString - 1));

Fuente: = Copiar(Fuente, EndOfCurrentString longitud(Deli), longitud(Fuente) - EndOfCurrentString);

end;

Resultado:= StringList;

StringList.Add ( fuente);

fin;

procedimiento StrToStrs(str: cadena; cadenas: tstrings); var temp: cadena

i: entero;

etiqueta B, E;

comenzar

B:

i:= ansipos('|', str );

si i=0 ENTONCES VAYA A E;

strs.Add(ansileftstr(str,i-1));

str：=ansirightstr ( str, longitud(str)-i);

IR A B;

E:

fin;