procedure LoadCSV(Filename: string; sg: TStringGrid);
var
i, j, Position, count, edt1: integer;
temp, tempField : string;
FieldDel: char;
Data: TStringList;
begin
Data := TStringList.Create;
FieldDel := ',';
Data.LoadFromFile(Filename);
temp := Data[1];
count := 0;
for i:= 1 to length(temp) do
if copy(temp,i,1) = FieldDel then
inc(count);
edt1 := count+1;
sg.ColCount := 30;
sg.RowCount := Data.Count +1;
sg.FixedCols := 0;
for i := 0 to Data.Count - 1 do
begin;
temp := Data[i];
if copy(temp,length(temp),1) <> FieldDel then
temp := temp + FieldDel;
while Pos('"', temp) > 0 do
begin
Delete(temp,Pos('"', temp),1);
end;
for j := 1 to edt1 do
begin
Position := Pos(FieldDel,temp);
tempField := copy(temp,0,Position-1);
sg.Cells[j-1,i+1] := tempField;
Delete(temp,1,length(tempField)+1);
end;
end;
Data.Free;
end;
Load CSV Data into a StringGrid in Dephi
This procedure will load CSV data stored in a file into a StringGrid control for display or processing.
Hi
Thank you very interesting!!!
Its possible download my sheet directly from google drive using stream?
Thanks