Array
(
)

Gravar em um arquivo um array dinamico

Snipa
   - 05 fev 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:

#Código


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?


Edilcimar
   - 05 fev 2006

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


Snipa
   - 05 fev 2006

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.


Edilcimar
   - 05 fev 2006

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


Snipa
   - 05 fev 2006

Blz vlw consegui aqui.