Cita:
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.