Preciso disparar uma mensagem de erro caso o usuário tente inserir códigos inválidos em uma tabela temporária no grid. Os códigos são provenientes de um .txt
. Os códigos disparados no monitor estão ok porém a mensagem é repetida n vezes conforme existam n códigos incorretos. Gostaria que fosse disparada uma única mensagem com a lista de códigos incorretos. Como fazer isso? Obrigada.
// procedure para leitura do texto
var
myFile : TextFile;
begin
AssignFile(myFile, arquivoTxt);
Reset(myFile);
while not Eof(myFile) do
begin
ReadLn(myFile, text);
InsereTexto;
end;
CloseFile(myFile);
end;
// procedure para inserir dados do txt no banco
begin
if not qrSELCSPCliente.Locate('CSC_CAP_NroCartao', StrToInt(text), []) then
begin
{INSERE DADOS NO BANCO do txt}
else
begin
MsgAviso('Número já cadastrado!' + text);
end;
end;