Tenho um arquivo .txt codificado e preciso copiar o conteúdo decodificado para outro .txt.
No primeiro arquivo, tenho o seguinte:
GcbqRM5mNp4
GcbqRM5mNp8
GcbqRM5mNpC
Quando o novo arquivo é criado, ele está retornando o número de linhas correto, mas somente com o primeiro item da lista decodificado:
Bitmap_1
Bitmap_1
Bitmap_1
E o retorno deveria ser:
Bitmap_1
Bitmap_2
Bitmap_3
O código que estou usando:
var
arq, arqDec : TextFile;
linha, nome : string;
s : Integer;
begin //Decodifica o texto do arquivo
AssignFile(arq, FrmCadastro.CBUsuario.Text +'-images.txt');
Reset(arq);
while not Eof(arq) do
begin
Readln(arq, linha);
s := Pos(Encode64('Bitmap_'), linha);
nome := Copy(linha, 1, s-1);
Delete(linha, 1, s);
ShowMessage(Decode64(linha)); //<--Até aqui dá o retorno correto (ShowMessage usado só pra testar)
end;
begin
AssignFile(arqDec, FrmCadastro.CBUsuario.Text +'-Decod-images.txt');
if not (FileExists(FrmCadastro.CBUsuario.Text +'-Decod-images.txt')) then
Rewrite(arqDec)
else
Begin
Append(arqDec);
Writeln(arqDec, Decode64(linha));
end;
end;
CloseFile(arq);
CloseFile(arqDec);
end;
O que estou fazendo de errado? Ou o que está faltando pra gravar os dados corretos no novo arquivo .txt?