Skip to main content
1 de 3

Multiplas linhas em um ShowMessage no Delphi

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;