ActiveDelphi

[AdalmirAM]

Boa tarde achei um codigo na web para exportar para txt e modifiquei para minha realidade. Porem na hora de exportar ele nao exporta as 2 ultimas linhas.

var
Caminho : String; //Será Responsável pelo caminho do nosso arquivo
mArq : TextFile; //É o nosso arquivo em si
begin

if SaveDialog1.Execute then
begin

ZTable1.Refresh;
ZTable1.Open;
ProgressBar1.Max := ZTable1.RecordCount;

AssignFile(mArq, SaveDialog1.FileName); //Cria o Arquivo
Rewrite(mArq); {Abre para gravação}

while not ZTable1.Eof do
Begin
Writeln( marq ,
Padr(Copy(ZTable1.FieldByName('Nome').Value , 1, 30), 30 , ' ') + ' ' +
Padr(Copy(ZTable1.FieldByName('Valor').Value , 1 , 6), 6 , ' '));

ProgressBar1.Position := ProgressBar1.Position + 1;
ZTable1.Next;
End;

ShowMessage('Processo Concluído!!!');
end;
end;


Tem tb a função Padr - Tb nao entendi para que serve.

function TForm1.PadR(cStr: String; nSize: Integer; cCar: String): String;
var
nFor, nAux: Integer;
cAux: String;
begin
cAux := Trim(cStr);
nAux := Abs(Length(cAux)-nSize)-1;
for nFor := 0 to nAux do
cAux := cAux+cCar;
Result := cAux;


end;


Aguem sabe me dizer onde esta o erro ou tem algum outro exemplo.

[imex]

Boa tarde,

Acho que o problema pode estar ocorrendo porque não está sendo executado o CloseFile depois do looping:

[AdalmirAM]

Obrigado pela atenção.

Faleu Imex.