My Visual Database — Uses and multiple instances of an event

Re: Uses and multiple instances of an event

null@example.com (AD1408) — Thu, 05 Sep 2024 09:00:37 +0000

Hi Sparrow,

Thank you very much for the advice.... and thank you for your time.
Truly appreciated....

Re: Uses and multiple instances of an event

null@example.com (sparrow) — Thu, 05 Sep 2024 08:02:12 +0000

Each .pas file must end with a section

begin

end.

For example
calc.pas

function mult(x, y: integer): integer;
begin
result := 0;
if (x <> 0) and (y <> 0) then result := x * y;
end;

begin

end.

Be careful when using this method. At the compilation stage, MVD does not indicate in which module the error occurred. I would advise you to do everything in the default script at the debugging and writing stage and only at the final stage distribute everything among modules.

Uses and multiple instances of an event

null@example.com (AD1408) — Wed, 04 Sep 2024 22:48:32 +0000

Trying to make use of 'USES' function as I start to like it.
I tried to implement multiple instances of 'Form1_OnShow' event as:

procedure Form1_OnShow (Sender: string; Action: string);
begin
Frm1onShow1;  // Calendar
Frm1onShow2;  // General + RTF Font
Frm1onShow3;  // password
Frm1onShow4; // Menu

with the following .pas files:
'calend.pas', // Calendar code
'passw.pas', // Password code
'menu.pas'; // Menu code

However, couldn't get it working. It's coming up with script error saying 'BEGIN expected at ...'
Please see the attached app.