Fórum Como faço para truncar taleba pela unit e carregar txt #186126

Este é o codigo que tenho, quando execulto da uma! mensage cursor handled, como posso truncar a tabela sem da o erro, depois que trunco a tabela eu carrego um txt para o banco... :(


procedure TformCg0102.SpeedButton3Click(Sender: TObject);
var
f : TextFile;
entrada: string;

begin
if table2codigo.value<> ´´ then
begin
query2.active := false;
query2.sql.clear;
query2.sql.Add(´delete from cartao where nome is not null ´);
query2.Active := true;
end;
else
assignfile(f,´C:\temp\arquivo.txt´);
reset(f);
while not eoln(f) do
begin
readln(f,entrada);
table2.Insert;
table2.UpdateRecord;
Table2CODIGO.value:=copy (entrada,1,10);
Table2DATAVALIDA.value:=copy(entrada,12,19);
Table2STATUS.value:=copy(entrada,21,21);
Table2NOME.value:=copy(entrada,23,55);
Table2.post;
end;
CloseFile(F);
begin
if MessageDlg(´A exportção foi concluida com sucesso ?´,
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
formCg0102.show;
table1.Refresh;

end;

end;