Problema com Criptografia de linhas de grid

Delphi

28/04/2009

Olá pessoal,

tenho um grid com 4 campos e preciso criptografar cada linha do grid para um arquivo txt. Já utilizei várias functions de criptografia que peguei na net, o problema é que ocorre quebra de linha e ao invés de cada linha do arquivo corresponder a uma linha no grid, ficam duas as vezes.

Alguém tem alguma função de criptografia que não permite a quebra de linha, ou trata isso de alguma forma?

Uso Delphi 7

valeu
Arakan


Arakan

Arakan

Curtidas 0

Respostas

Marcosrocha

Marcosrocha

28/04/2009

Não entendi direito o que você quis dizer com ´ficam duas as vezes´, mas você pode fazer o seguinte. Crie uma TStringList
var
  I: Integer;
  stTemp: TStringList;
begin
  stTemp := TStringList.Create;
Aí você faz um FOR na Grid e adicionando os dados criptografados na StringList:
  for I := 1 to StringGrid1.RowCount-1 do // estou supondo que seja StringGrid, se for DBGrid não muda muita coisa
    stTemp.Add(Criptografa(StringGrid1.Cells[1,I])); // minha função de criptografia
  stTemp.SaveToFile(´C:\Criptografado.txt´);
  stTemp.Free;
end;



GOSTEI 0
Arakan

Arakan

28/04/2009

Valeu pela dica Marcos, na realidade resolvi de uma outra forma, usei o componente da indy endecode, após criptar.

Arakan


GOSTEI 0
POSTAR