[[Al González]]

¡Buen día a todos!

Acl_gandalf:

Esto lo puedes solucionar fácilmente con la función ghSeparadas de Interfaz GH para Delphi 7

Ejemplo:

Código Delphi [-]
...
implementation

{$R *.dfm}

Uses
  IGHCadenas;

procedure TForm1.Button1Click(Sender: TObject);
Var
  Cadena :String;

  { Arreglo abierto de cadenas.  TghArregloCadenas es equivalente
    a "Array Of String", pero es necesario por compatibilidad de
    tipos al momento de compilar. }
  Valores :TghArregloCadenas;

  Indice :Integer;
begin
  Cadena := 'Valor 1,Valor 2,,Valor 4';

  { Obtener en un arreglo las subcadenas separadas por comas,
    incluyendo las que están vacías }
  Valores := ghSeparadas (Cadena, ',', False);

  { Mostrar el contenido del arreglo }
  For Indice := 0 To High (Valores) Do
    ShowMessage ('"' + Valores [Indice] + '"');
end;
...

Si se omite el parámetro False (o se utiliza True) al llamar a la función ghSeparadas, sólo se tomarán en cuenta las subcadenas que no estén vacías. En este ejemplo se agregó el argumento False, pensando que la cadena extraída del archivo de texto (fichero) puede contener campos con valores nulos.

Espero esto sea de utilidad. Seguimos en contacto.

Al González.