Problema con archivo .csv y campos en blanco en StringGrid

[Jetzuvely21]

Hola de nuevo ecfisa, tardé en contestar porque estuve probando lo que tuviste atención de ayudarme (;, tuve algunos detalles para mostrar en mi grid el archivo cargado. Porque me lo mostraba todo en una sola línea....aunque si me respetaba mis campos en blanco.

Tras otras pruebas y modificaciónes, me encontré con una cadena dentro de mi archivo :

6,18042012,Abono,13,00,666,,,"8,671.00",06666666,

Y con la solución que me enviaste, me ponia en una columna "8 y en otra 671.00 porque
el delimitador es la "," esto teoricamente estaba bien porque respetaba el delimitador, pero en mi caso estaba mal porque es una cantidad completa...

Lo que hice fue lo siguiente :

Código Delphi [-]
procedure TForm1.BAbrirClick(Sender: TObject);
function ExtractStrings1(Separators, WhiteSpace: TSysCharSet; Content: PChar;
  Strings: TStrings): Integer;
var
  Head, Tail: PChar;
  EOS, InQuote: Boolean;
  QuoteChar: Char;
  Item: string;
begin
  Result := 0;
  if (Content = nil) or (Content^=#0) or (Strings = nil) then Exit;
  Tail := Content;
  InQuote := False;
  QuoteChar := #0;

  Strings.BeginUpdate;
  try
    repeat
      while Tail^ in WhiteSpace + [#13, #10] do Inc(Tail);
      Head := Tail;
      while True do
      begin
        while (InQuote and not (Tail^ in ['''', '"', #0])) or
          not (Tail^ in Separators + [#0, #13, #10, '''', '"']) do Inc(Tail);
        if Tail^ in ['''', '"'] then
        begin
          if (QuoteChar <> #0) and (QuoteChar = Tail^) then
            QuoteChar := #0
          else QuoteChar := Tail^;
          InQuote := QuoteChar <> #0;
          Inc(Tail);
        end else Break;
      end;
      EOS := Tail^ = #0;
      if (Head <> Tail) and (Head^ <> #0) then
      begin
        if Strings <> nil then
        begin
          SetString(Item, Head, Tail - Head);
          Strings.Add(Item);
        end;
        Inc(Result);
      end
      else
      begin
        Strings.Add(' ');
      end;
      Inc(Tail);
    until EOS;
  finally
    Strings.EndUpdate;
  end;
end;

Var
  i, filas : Integer;
  Fichero : TStringList;
  cadena : String;
  const SaltoLinea = #13#10;
begin
  If ODArchivo.Execute Then Begin
    Fichero := Nil;
    Try
      Fichero := TStringList.Create;
      Fichero.LoadFromFile(ODArchivo.FileName);
      filas  := Fichero.Count;
      SGDatos.RowCount := filas;
      filas := filas - 1;
      for i:= 0 to filas do begin
        ExtractStrings1([','], [' '], PChar(Fichero[i]), SGDatos.Rows[i]);
      end;
    Finally
      Fichero.Free;
    End;
  End;
end;

Hice una pequeña modificacion a la funcion ExtractStrings original. Como te puedes dar cuenta en la linea

Strings.Add(' ');

.

Y asi me muestra ya mis campos como en el excel. ¿Crees que no tenga problema alguno con datos posteriores, el haber hecho esa modificación en la función? :S

Espero tu valioso comentario.

Un gran saludo y muchas gracias por demostrar tu interés y ayuda. Si tienes alguna observación o comentario para que mejore este asunto, te lo agradeceré demás.

P.D.:El archivo con datos incompletos es similar a este (.csv):

No. Cliente:,22222222,
Nombre del Cliente:,INTERNACIONAL,
Fecha de la Consulta:,19042012,
Total de Cuentas:,1,
Movimientos,18042012,
Movimientos de Cargos:,0,
Movimientos de Abonos:,15,
Resumen General,
Nombre de la Cuenta:,F NORMAL,
Sucursal:,0000,
Cuenta:,'1111111',
Moneda:,Pesos,
Saldo Inicial:,+,"44,142.10",
Saldo Final:,+,"199,222.41",
Total de Número de Cargos:,0,
Total de Cargos:,0.00,
Total de Número de Abonos:,15,
Total de Abonos:,"150,377.36",
Detalle de Movimientos:,
Num,Fecha,Tipo,Código,Subcódigo,Sucursal,Referencia Numérica,Referencia Alfanumérica,Importe,Autorización,
1,18042012,Abono,15,00,1111,,FMC1111I,464.00,88888888,
2,18042012,Abono,07,32,2222,,464.00,0.00,99999999,
3,18042012,Abono,15,00,3333,,FMC10111,464.00,66666666,
4,18042012,Abono,07,32,4444,,464.00,0.00,88888888,
5,18042012,Abono,71,01,555,2222222,AUT. 11111 SER ELEC.,"103,000.00",01222222,
6,18042012,Abono,13,00,666,,,"8,671.00",06666666,
7,18042012,Abono,13,00,777,,,"3,389.06",03333333,
8,18042012,Abono,11,03,888,,,"4,841.06",02222222,
9,18042012,Abono,07,32,999,,"4,841.06",0.00,14444444,
10,18042012,Abono,11,03,000,,,"9,349.89",14444444,
11,18042012,Abono,07,32,777,,"9,349.89",0.00,15555555,
12,18042012,Abono,11,03,888,,,"4,951.44",18888888,
13,18042012,Abono,07,32,999,,"4,951.44",0.00,19999999,
14,18042012,Abono,13,00,666,,,"8,246.91",14444444,
15,18042012,Abono,11,00,555,,,"7,000.00",17777777,