Problema con archivo .csv y campos en blanco en StringGrid

[Jetzuvely21]

Hola a todos!!

Escribo para preguntarles sobre una duda que me ha traido de cabeza, he leido ya los post e hilos del foro en lo que refiere a importar archivos a delphi. Estoy programando en Delphi5 y archivos .csv .Ya tengo la importación, mi problema ahora radica en que si tengo en mi archivo:

1,18042012,Abono,15,00,6446,,FMC1998I,464.00,00075272,
2,18042012,Abono,07,32,6446,,,464.00,0.00,00075272,

En mi StringGrid los datos los mueve de columna por los campos en blanco. He probado
la función de:

Código Delphi [-]
ExtractStrings([','],[], PChar(Strings[i]), StringGrid1.Rows[i]);

para los delimitadores y si funciona bien cuando tengo todos los campos completos.

Todo lo que hasta ahorita llevo lo he aprendido de este maravilloso Foro y de los hilos que muchos de los usuarios han posteado, asi como las sugerencias y dudas que han tenido, los cuales me han servido de mucho y ayudado también, pero no sé como poder resolver esto =(.

El archivo .csv me lo pasan así con esos datos y campos.

Espero de verdad me puedan orientar y ayudar, ¡se los agradeceria mucho!

Saludos, Karen

[ecfisa]

Hola Karen.

Espero haberte entendido bién, proba si te funciona de este modo:

Código Delphi [-]
procedure PasarAStrGrd(const Cad: string; const aRow: Integer; aGrid: TStringGrid);
var
  i: Integer;
  TS: TStrings;
begin
  with TStringList.Create do
  try
    DelimitedText:= Cad;
    Delimiter:= ',';
    for i:= Count-1 downto 0 do
      if Strings[i] = '' then 
        Strings[i] := ' ';   
    aGrid.ColCount:= Count-1; // (*)    
    for i:= 0 to Count-1 do
      aGrid.Cells[i + aGrid.FixedCols, aRow]:= Strings[i];
  finally
    Free;
  end;
end;

Llamada de prueba:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Cadena: string;
begin
  Cadena:= '1,18042012,Abono,15,00,6446,,FMC1998I,464.00,00075272,2,18042012,Abono,07,32,6446,,464.00,0.00,0007  5272,';
  PasarAStrGrd(Cadena , 1, StringGrid1);
end;

Saludos.

Edito: (*) Esta línea la usé para garantizar que existan en el StringGrid tantas columnas como campos se le envían. La podés quitar si ya tenes definido con anterioridad cuantas columnas serán. ( si hay algo en lo que no fuí claro por favor decime )

[Jetzuvely21]

Probé lo que me sugeriste, pero me marca error:

[Error] Unit1.pas(386): Undeclared identifier: 'DelimitedText'

Tengo entendido que StringList pertenece a la clase TStrings de la unidad Classes.

Pero no me acepta el DelimitedText :S

[ecfisa]

Hola Karen.

No sé por que te puede estar mostrando ese error, pero para que controles con tranquilidad te adjunto un ejemplo muy simple que me funciona correctamente.


Saludos.

[Jetzuvely21]

Empezado por ecfisa

Hola Karen.

No sé por que te puede estar mostrando ese error, pero para que controles con tranquilidad te adjunto un ejemplo muy simple que me funciona correctamente.

Saludos.

Gracias de nuevo ecfisa, me marca que me falta la unidad "Variants.dcu". ¿Sería mucha molestia que me pudieras indicar dónde la puedo obtener?

Te agradezco tu atención y tiempo. =)

[ecfisa]

Hola Karen.

Fijate en las líneas:

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

Si no figura Variants, como es el caso de arriba, sólo agregalo:

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids ,Variants;

Saludos.

[Casimiro Notevi]

¿Y exactamente el problema que tienes cual es?

[Jetzuvely21]

Empezado por Casimiro Notevi

¿Y exactamente el problema que tienes cual es?

Gracias por interesarte, lo que pasa es que al leer mi archivo .csv tengo algunos campos en blanco
como puse en un principio:

1,18042012,Abono,15,00,6446,,FMC1998I,464.00,00075272,
2,18042012,Abono,07,32,6446,,,464.00,0.00,00075272,

y al mostrarlos en el StringGrid me los pone en la columna que no corresponde, es decir los recorre a la izquierda.