COMPARAR ARQUIVO texto !!! como???

Delphi

04/05/2004

COMPARAR ARQUIVO texto !!! como???
Olá pessoal preciso comparar arquivos textos, tipo recebo
semanalmente um cadastro de lojas, gostaria de alterar meu banco
somente se o arquivo recebido por último tivesse alguma alteração do
anterior.

no arquivo consta um cadastro tipo abaixo

CADASTRO270404.TXT
0091102LOJAS LTDA AV.GETULIO VARGAS 867 (11)68411010
0091103LOJAS CANADA AV.REGINALDO FARIA 844 (23)24101020

CADASTRO240504.TXT
0091102LOJAS LTDA AV.GETULIO VARGAS 867 (11)68122020
0091103LOJAS CANADA AV.REGINALDO FARIA 844 (23)24101020

Neste caso o cadastro foi modificado veja o fone da lojas LTDA, aí
preciso então que seja avisado que este arquivo está modificado.

uso delphi 6 e paradox.
Como faço isso? se me ajudarem com dicas e exemplos agradeço!!!


Infohelp

Infohelp

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

04/05/2004

Ai vai uma idéia..

var Stl1,Stl2: TStirnglist;
    i: integer;
...
   stl1.LoadFormFile(´c:\teste.txt´);
   stl2.LoadFormFile(´c:\teste1.txt´);
   for i:= 0 to stl1.Count - 1 do
    if stl1[i] = stl[i] then
     ShowMessage(´São iguais´)



GOSTEI 0
Dopi

Dopi

04/05/2004

Se voce quer somente saber se o arquivo mudou, sem precisar saber o que mudou em seu conteudo, compare as datas e horas...



GOSTEI 0
Lucas Silva

Lucas Silva

04/05/2004

corrigindo....
var Stl1,Stl2: TStirnglist;
    i: integer;
...
   stl1.LoadFormFile(´c:\teste.txt´);
   stl2.LoadFormFile(´c:\teste1.txt´);
   for i:= 0 to stl1.Count - 1 do
    if stl1[i] = stl2[i] then
     ShowMessage(´São iguais´)



GOSTEI 0
Infohelp

Infohelp

04/05/2004

tentei executar mas me retorna um erro Acess violation at address 5650C003. Read of Address 5650C003. o que pode etr ocorrido?
podeira me ajudar


GOSTEI 0
Lucas Silva

Lucas Silva

04/05/2004

Esqueci de um detalhe..

var Stl1,Stl2: TStirnglist;
i: integer;
...
[b:bb19a087eb] stl1 := TStringList.Create;
stl2 := TStringList.Create;[/b:bb19a087eb]
stl1.LoadFormFile(´c:\teste.txt´);
stl2.LoadFormFile(´c:\teste1.txt´);
for i:= 0 to stl1.Count - 1 do
if stl1[i] = stl2[i] then
ShowMessage(´São iguais´)


GOSTEI 0
POSTAR