Fórum Parar importação de arquivo TXT #203742

vc quer colocar um botão de cancelar?
Quando preciona-lo vc quer que ele pare de importar?
Se for isso coloque no codigo onde vc importa mais precisamente no laço que vc esta importando que deve ser um while o seguinte comando
[b:0c00835b2f] aplication.processmessages[/b:0c00835b2f]


OK?

é isso mesmo, só não sei onde colocar o ´aplication.processmessages´

meu código está assim:

while not Eof(arq)do
begin
inc(cont);
Label1.Caption:= ´Importando Registros: ´ + IntToStr(cont);
Label1.Refresh;
Readln(arq, entrada);
frmBemFam.tbMedicamento.Insert;
frmBemFam.tbMedicamentoCODMED.AsString:= copy(entrada,1,11);
frmBemFam.tbMedicamentoNOMEMED.AsString:= copy(entrada,12,100);
frmBemFam.tbMedicamentoUNIDMED.AsString:= copy(entrada,112,8);
frmBemFam.tbMedicamento.Post;
end;