Carregar DBGrid com arquivo TXT
Como faço para carregar um DBGrid com um arquivo TXT, de modo que depois de ter o arquivo exe gerado, eu altere apenas o conteudo arquivo TXT e o DBGrid do exe carregue as alterações.
Tem como fazer? Ou algo parecido!
Valeu galera!
Tem como fazer? Ou algo parecido!
Valeu galera!
Denysk
Curtidas 0
Respostas
Edilcimar
29/02/2004
que tal trocar o dbgrid por um stringgrid?
GOSTEI 0
Denysk
29/02/2004
Tudo bem! O problema é q sou meio leigo em Delphi. Como faço isso?
Valeu!
Valeu!
GOSTEI 0
Buosinet
29/02/2004
Acho que você consegue fazer isso usando uma StringList pra ler o arquivo, e depois carregue um ClientDataSet... ao gravar, faça o caminho inverso.
Boa Sorte
Buosi.
Boa Sorte
Buosi.
GOSTEI 0
Henry
29/02/2004
Brother, eu tenho como salva e carrega os dados de um stringGrid em um arquivo txt, num sei isso serve, mais em todo casa la vai....
Procedure SaveGrid;
var
f:textfile;
x,y:integer;
begin
assignfile (f,´NomeArquivo´);
rewrite (f);
writeln (f,stringgrid.colcount);
writeln (f,stringgrid.rowcount);
For X:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do writeln (F, stringgrid.cells[x,y]);
closefile (f);
end;
Procedure LoadGrid;
var
f:textfile;
temp, x, y:integer;
tempstr:string;
begin
assignfile (f,´NomeArquivo´);
reset (f);
readln (f,temp);
stringgrid.colcount:=temp;
readln (f,temp);
stringgrid.rowcount:=temp;
For X:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do begin readln (F, tempstr);
stringgrid.cells[x,y]:=tempstr;
end;
closefile (f);
end;
Se tive duvidas de como usa o baguio, me manda uma MP, ou entra no ICQ ai brother, 221075981.
Um abraço, Henry.
Procedure SaveGrid;
var
f:textfile;
x,y:integer;
begin
assignfile (f,´NomeArquivo´);
rewrite (f);
writeln (f,stringgrid.colcount);
writeln (f,stringgrid.rowcount);
For X:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do writeln (F, stringgrid.cells[x,y]);
closefile (f);
end;
Procedure LoadGrid;
var
f:textfile;
temp, x, y:integer;
tempstr:string;
begin
assignfile (f,´NomeArquivo´);
reset (f);
readln (f,temp);
stringgrid.colcount:=temp;
readln (f,temp);
stringgrid.rowcount:=temp;
For X:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do begin readln (F, tempstr);
stringgrid.cells[x,y]:=tempstr;
end;
closefile (f);
end;
Se tive duvidas de como usa o baguio, me manda uma MP, ou entra no ICQ ai brother, 221075981.
Um abraço, Henry.
GOSTEI 0