SPLIT en delphi, pero sin tener en cuenta espacios en blanco
HOla buenas, estoy tratando de meter los datos de un fichero en una tabla de unabbdd, y le gastando esta funcion uso como separador la ',' pero me separa tambien por espacios en blanco, q podria hacer para evitar esto.
gracias de antemano
var SLista: TStringList;
Arreglo: array of String;
Indice: Integer;
begin SLista := TStringList.Create;
SLista.Delimiter := Separador; // el separador que uses
SLista.DelimitedText := Cadena; // la cadena a partir
SetLength(Arreglo, SLista.Count);
for Indice := 0 to Pred(SLista.Count) do
Arreglo[Indice] := SLista[Indice];
SLista.Free;
Última edición por acl_gandalf fecha: 08-04-2005 a las 09:44:47.
|