Fórum Carregar DBGrid com arquivo TXT #217278
29/02/2004
0
Tem como fazer? Ou algo parecido!
Valeu galera!
Denysk
Curtir tópico
+ 0Posts
29/02/2004
Edilcimar
Gostei + 0
01/03/2004
Denysk
Valeu!
Gostei + 0
02/03/2004
Buosinet
Boa Sorte
Buosi.
Gostei + 0
02/03/2004
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
Clique aqui para fazer login e interagir na Comunidade :)