Lentitud leer .csv

[ErYcK]

Hola otra vez siento ser tan pesado.

Con ese cambio que me diste me sigue metiendo mal los datos, mete la categoría en el estado en la mayoría de los registros, he probado a mezclar tu idea con la mía, y lo hace bien, el problema es que los registros demasiado largos me los mete en el siguiente registro, entiendo que es porque el TStringList tendrá un límite de caracteres, te muestro el código.

if(OpenDialog1->Execute())
{
                TStringList *TS = new TStringList;
                TS->LoadFromFile(OpenDialog1->FileName);
                XCarga->Show();
                XCarga->ProgressBar1->Min = 0;
                XCarga->ProgressBar1->Max = TS->Count;
                int cont=0;
                int col=0;
                String referencia="";
                for(int i=0; i< TS->Count; i++)
                {
                cont=0;
                col=0;
                XCarga->ProgressBar1->Position=i;
                XCarga->Caption="Leidno .CSV .. Linea: "+i;
                for (int j=1;j<=TS->Strings[i].Length();j++)
                {
                        if (TS->Strings[i][j]!= ' ')
                        {
                                cont=0;
                                if (TS->Strings[i][j] == ';')
                                {
                                        StringGrid1->Cells[col][i] = referencia;
                                        referencia="";
                                        col++;
                                }
                                else
                                {
                                        referencia = referencia+TS->Strings[i][j];
                                }
                        }
                        if (TS->Strings[i][j] == ' ')
                        {
                                cont++;
                                if (cont>2)
                                        break;
                        }
                }
}

Es algo más lento que la idea que propusiste pero el simple uso del TStringList lo acelera lo suficiente en realidad.

Si sabes alguna forma de solucionar el problema usando el código que antes me mostraste seria genial, si no me gustaría saber si el TStringList tiene límite de caracteres y si se puede ampliar este límite.

Gracias por tu paciencia que ha de ser mucha.