Skip to main content
adicionou 5 caracteres ao conteúdo
Fonte Link
viana
  • 27,7mil
  • 26
  • 96
  • 198

Preciso disparar uma mensagem de erro caso o usuário tente inserir códigos inválidos em uma tabela temporária no gridgrid. Os códigos são provenientes de um txt.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;

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;

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;

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;

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;

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;
Fonte Link

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;