Fórum Socorro alquem pode me ajudar ?????? #160214

falae cumpadi!

acho q tenho como te ajudar, mas antes eu gostaria q vc explicasse melhor qual eh a sua dificuldade...

cara, tenho este codigo para gravar um txt em uma tabela sql, cliente/servidor, eu preciso que ao carregar o form da aplicacao eu verifico se o arquivo foi alterado, se for treu o codigo devera apagar a tabela e logo apos atualizar com o arquivo novo.. estou aguardanto
obrigado

Edmar


procedure TfrmPedidos.CopiaTXT(Sender: TObject);
var
TXT : TextFile ;
Entrada : String ;
begin
AssignFile(TXT, ´C:\USIProjetos\Tabelas\Prods.TXT´);
Reset(TXT) ;
while not Eoln(TXT) do
begin
Readln(TXT,Entrada) ;
with tadoquery.create(nil) do
try
connection := suaconexao;
sql.add(´insert suatabela(campo1,campo2....)´;
sql.add(´values(:campo1, :campo2, ...)´
parameters.itens[0].datatype := ftstring;
parameters.itens[1].datatype := ftinteger;
parameters[0].value :=Copy(Entrada,01,09) ;
parameters[1].value := Copy(Entrada,10,40) ;
execsql;
finally
free;
end;

end;
CloseFile(TXT) ;
btnCopia.Enabled := False ;
end;

de q forma este arquivo pode ser alterado??? linhas sao adicionadas, retiradas...???
teria como vc guardar em algum lugar alguma caracteristica deste arquivo ao sair da sua aplicacao para q, ao entrar nela novamente, vc verifique se esta caracteristica foi alterada, como tamanho, data de modificacao???

valeu