Hi!
I would like to
import excel (xls or csv) to dbgird. I use ZConnection, ZQuery, ZTransaction, dbgird, DataSource.
I tried import excel to memo1. When I tried excel to dbgrid does not work.
var
column: string;
doc: TextFile;
list: TStringList;
i: Integer;
begin
i := 0;
// Lista
list := TStringList.Create;
// Dialogus inditas
OpenDialog1.Execute;
AssignFile(doc, OpenDialog1.FileName);
try
Reset(doc);
while not eof(doc) do
begin
Memo1.Clear;
readln(doc,column);
if i=0 then
begin
i := i+1;
Continue;
end;
list.Delimiter:=',';
list.StrictDelimiter:=True;
list.DelimitedText:=column;
ShowMessage(list.Text);
Memo1.Append(list.Text);
Label1.Caption:=inttostr(list.Count);
list.Clear;
i := i+1;
end;
finally
list.Free;
end;
CloseFile(doc);
Memo1.SelStart:=1;