PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Dúvidas em alguns comandos #250652

15/09/2004

0

Reset(f);
while not EOF(f) do begin
Application.ProcessMessages;
ReadLn(f, s);
if length(trim(s)) > 10 then begin
query1.append;
query1[´LastUpdate´] := FormatDateTime(´yyyymmdd´, strtodatetime(dm1.cfsdata));//now);
query1[´sql´] := s;
query1.post;
end;
end;
closefile(f);

As linhas query1[´LastUpdate´] := .... e query1[´sql´] := s; são as que ainda não entendi. O resto está Ok.


Paulo

Paulo

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar