(M)eine Seite für 40tude Dialog

Einbindung eines INCLUDE-Files

Die Einbindung eines INCLUDE-Files in ein (Ereignis-)Script erfolgt eigentlich stets mit den selben 3 Schritten.

1. Lade dir das ZIP-File mit dem Script herunter und entpacke bei geschlossenem Dialog die darin enthaltende Datei "NameDesIncludeFiles.ds" in das Programmverzeichnis von 40tude Dialog ins Unterverzeichnis Scripts\Custom.
2. Starte anschließend den Dialog mit der Scriptverwaltung und binde das INCLUDE-File in das entsprechende (Ereignis-)Script ein. Gehe wie folgt dabei vor:
   • Suche im (Ereignis-)Script die Zeile mit dem Code "program xxx;"
     xxx steht dabei für den Namen des jeweiligen (Ereignis-)Scripts, z.B. OnStartup
   • Füge unterhalb dieser Codezeile das INCLUDE-File mit folgender Syntax ein
     {$I NameDesIncludeFiles}
     

     Program OnBeforeSendingMessage;
     
     {$I NameDesIncludeFiles}
     

3. Jetzt muß nur noch die Funktion eingebunden werden, damit der Code auch ausgeführt wird. Wie die Funktion heißt und mit welchen Parametern diese eingetragen werden muß, wird bei den Infos zu den jeweiligen INCLUDE-Files stets mit angegeben.
   
   • Suche die Zeile mit dem Code "End;", den mit dem Strichpunkt/Semikolon am Ende
   • Füge oberhalb dieser Zeile die Funktion ein, die ausgeführt werden soll

     Begin
       //Your code goes here
       //Return false to prevent sending the passed message
       result := true;
       
       FunktionDesIncludeFiles (Message, IsEmail);
     
     End;
     
     Begin
     End.
     

Was tun, wenn an den angegeben Positionen schon etwas steht?

In den meisten Fällen findest du an den angegeben Positionen schon ein INCLUDE oder einen Code vor. Füge dann die neuen Codezeilen direkt über oder unter die vorhandenen Zeile(n) ein.

Program OnBeforeSendingMessage;

{$I NameDesIncludeFiles1}
{$I NameDesIncludeFiles2}

Function OnBeforeSendingMessage(
  Var   Message    : TStringlist;
  Const Servername : String;
  Const IsEmail    : Boolean
) : Boolean;

Begin
  //Your code goes here
  //Return false to prevent sending the passed message
  result := true;
  
  FunktionDesIncludeFiles2(Message, IsEmail);
  FunktionDesIncludeFiles1(Message);

End;  // function OnBeforeSendingMessage()

Begin
End.

Das wars dann eigentlich auch schon. Jetzt noch das (Ereignis-)Script kompillieren und gegebenenfalls ausführen - fertig.