Problema con StringList

[ecfisa]

Empezado por oscarac

parece que quisiera colocarlo en filas y columnas
el codigo que has colocado esta incompleto
no se sabe el valor de "columnas"

Hola Oscar.

Es cierto, el número de columnas no está definido. Pero hice el código bajo el supuesto que tendrá conocimiento del número máximo de columnas que tiene el archivo que exporta desde Excel y declarará la misma cantidad de columnas en el TStringGrid para así poder contenerlas.

De todos modos si quiere ahorrarse la cuenta , puede obtener el máximo número de columnas de este modo por ejemplo:

Código Delphi [-]
function GetMaxCols(aFileName: TFileName): Integer;
var
  TS1,TS2: TStrings;
  i: Integer;
begin
  Result := 0;
  TS1 := TStringList.Create;
  try
    TS1.LoadFromFile(aFileName);
    for i:= 0 to TS1.Count-1 do
    try
      TS2 := TStringList.Create;
      TS2.Delimiter := ';';
      TS2.DelimitedText := TS1[i];
      if TS2.Count-1 > Result then Result := TS2.Count-1;
    finally
      TS2.Free;
    end;
  finally
    TS1.Free;
  end;
end;

Y usar previo al código anterior:

Código Delphi [-]
begin
   StringGrid1.ColCount := GetMaxCols('TU_ARCHIVO.CVS');
   ...

Saludos.