0

I have created a page that also outputs multiple messaages. Now the question, how do I make that the messages are all output in one message. Because now it is so that I have to click away every single message to see the full page.

I have thought to save the messages somehow then at the end of all output one below the other, but I do not know how to do that. Please help

if ...
   else
        Message('Day %1 is already present.', RecDate."Day");

and I have this several times

Canjo
  • 15
  • 3
  • What is the wider context of this message? Is this code executed in a loop on a recordset? Probably you would want to build a text string in a loop and display a single message at the end, but more input is needed to recommend any solution. – Alexander Drogin Dec 10 '22 at 13:01
  • yes, the code executed in a loop on a recordset. can you give me an example – Canjo Dec 10 '22 at 14:08
  • it is a list page, the code executed in a loop on a recordset – Canjo Dec 10 '22 at 15:26

1 Answers1

0

It's not possible to capture messages or suppress them and show all at the end of the process. Probably you want to restructure the code to compile all the bits in a singe text line and display one message when the process completes. It would be something similar to this.

        var
            Dates: Text;
        begin
            if ...
            else
                Dates := Dates + '\' + Format(RecDate.Day);

            if Dates <> '' then
                Message('Dates already present:\' + Dates);
        end;

Besides, I would probably think about using a temporary table to store all those records that must be displayed in the message, because it can be really cumbersome if the number of records grows too big.

Alexander Drogin
  • 586
  • 3
  • 9