Gravar em um arquivo um array dinamico

05/02/2006

Awe pessoal fmz?

Gostaria de saber como eu posso gravar em um arquivo e ler um arquivo que seje um array dinamico??

Assim :

TMapa = record
tile: array of array of integer;
end;

Faria assim se nao fosse dinamico:

var
Arquivo: File of Tmapa;
begin
if SaveDialog1.Execute then begin
  AssignFile(arquivo, Savedialog1.FileName);
  ReWrite(arquivo);
  Write(arquivo, Mapa);
  CloseFile(arquivo);
end;


Mais sendo como posso estar fazendo?


Snipa

Respostas

05/02/2006

Edilcimar

dê uma olhada aqui
http://forum.clubedelphi.net/viewtopic.php?t=73483
estamos tratando de um problema onde usamos array dinâmico


Responder Citar

05/02/2006

Snipa

Bom vlw mais nao ajudo em nada.
Oque quero saber é como gravar um array dinamico em um arquivo no computador.
Eu poderia fazer uma funcao pra ler e gravar num txt, mais queria saber se tem algum modo mais facil, melhor, estilo ao que coloquei acima.


Responder Citar

05/02/2006

Edilcimar

Arquivo : TextFile;
AssignFile(Arquivo,C:\Diretorio\MeuArquivo.txt);
Rewrite(Arquivo);
for I := 0 to High(Matriz) do
begin
WriteLn(Arquivo, Matriz[I]);
mais alguma coisa que queira fazer
end;
CloseFile(Arquivo);

Pronto, assim vc grava um arquivo texto usando uma matriz


Responder Citar

05/02/2006

Snipa

Blz vlw consegui aqui.


Responder Citar