מבוא מהיר לתחביר Pascal Script

• התחביר אינו רגיש לאותיות גדולות/קטנות כלל.
• פקודות מסתיימות בנקודה-פסיק (;).   ירידות שורה אינן משפיעות על ביצוע הקוד.
• בלוקים של קוד יש לתחום ב- begin ... end במקום { ... }.
• תוכניות, פרוצדורות ופונקציות חייבות להצהיר על כל המשתנים לפני השימוש.
• השמה למשתה תבוצע בסימן :=.
• הערה בשורה אחת:
  // זו הערה
• הערה מרובת שורות:
  { זו הערת בלוק }

תוכן העניינים

• סוגי נתונים נתמכים
• סימנים ומשמעותם
• אופרטורים
• הגדרת משתנים גלובאליים ומקומיים (VAR)
• הגדרת קבועים (Const)
• תנאי IF
• בלוקי קוד: Begin...End מול שורה יחידה
• איטרציה (לולאות)
• Case (מקביל ל-switch)
• מערך (Array)
• TRY
• פרוצדורות מול פונקציות
• העברת פרמטרים
• כלי עזר למחרוזות
• יסודות תאריך/שעה
• המרת טיפוסים
• רשומות (Records)

סוגי נתונים נתמכים

סימנים ומשמעותם

אופרטורים

הגדרת משתנים (VAR) - גלובאלי ומקומי

VAR
  GlobalCounter: Integer;
  GlobalUserName: String;

Procedure InitUser;
Var
  LocalMessage: String;
Begin
  GlobalCounter:= 1;             // Global variable
  GlobalUserName:= 'Dana';       // Global variable

  LocalMessage:= 'User initialized';  // Local variable
  PopupMessage(LocalMessage);
End;

// Local VAR only (inside procedure)
Procedure CalcSum;
Var
  X, Y, Z: Integer;
Begin
  X:= 10;
  Y:= 20;
  Z:= X + Y;
  PopupMessage('Sum: ' + _Int_To_Str(Z, False));
End;

הגדרת קבועים (CONST)

CONST
  MAX_RETRIES = 3;
  APP_NAME = 'Pascal Demo';

VAR
  Counter: Integer;

Procedure ShowInfo;
Begin
  Counter := 0;
  PopupMessage(APP_NAME + ' / retries: ' + _Int_To_Str(MAX_RETRIES, False));
End;

תנאי IF

VAR
  Age: Integer;
  IsMember: Boolean;
Begin
  Age:= 21;
  IsMember:= True;

  IF (Age >= 18) AND IsMember Then
    PopupMessage('Access granted')
  Else
    PopupMessage('Access denied');
End;

// Else-if style (nested if in else branch)
IF Score >= 90 Then
  Grade:= 'A'
Else IF Score >= 80 Then
  Grade:= 'B'
Else
  Grade:= 'C';

בלוקי קוד: Begin...End מול שורה יחידה

• שורה יחידה: אם IF או לולאה מכילים רק פקודה אחת, begin/end הם אופציונליים.
• בלוק מרובה שורות: מספר פקודות חייבות להיות עטופות בבלוק begin...end;.
• כלל ה-Else: אסור לשים נקודה-פסיק לפני מילת המפתח else.

// Single line example
IF X > 10 Then
  DoSomething;

// Block example
IF (X <= 10) AND (Y <> 0) Then
  Begin
    X:= X + 1;
    Y:= 0;
  End;

איטרציה (לולאות)

For

VAR
  I: Integer;
Begin
  For I:= 1 to 5 Do
    Begin
      PopupMessage('Iteration: ' + _Int_To_Str(I, False));
    // do something else in this block
    End;

  For I:= 5 downto 1 Do
    PopupMessage('Countdown: ' + _Int_To_Str(I, False));
End;

While

While (CurrentValue <= MaxLimit) Do
  Begin
    CurrentValue:= CurrentValue + Step;
  End;

Repeat...Until

Repeat
  ExecuteTask;
Until (IsFinished = True);

Case (מקביל ל-switch)

VAR
  DayNumber: Integer;
  DayName: String;
Begin
  DayNumber:= 3;

  CASE DayNumber OF
    1: DayName:= 'Sunday';
    2: DayName:= 'Monday';
    3: DayName:= 'Tuesday';
    4: DayName:= 'Wednesday';
    5: DayName:= 'Thursday';
    6: DayName:= 'Friday';
    7: DayName:= 'Saturday';
  Else
    DayName:= 'Unknown';
  End;
End;

VAR
  CommandText: String;
Begin
  CommandText:= 'start';

  CASE LowerCase(CommandText) OF
    'start': PopupMessage('Starting...');
    'stop': PopupMessage('Stopping...');
    'pause': PopupMessage('Paused.');
  Else
    PopupMessage('Unknown command: ' + CommandText);
  End;
End;

מערך (Array)

VAR
  Scores: Array[0..4] OF Integer;
  I: Integer;
Begin
  Scores[0]:= 10;
  Scores[1]:= 20;
  Scores[2]:= 30;
  Scores[3]:= 40;
  Scores[4]:= 50;

  For I:= 0 to 4 Do
    PopupMessage('Score #' + _Int_To_Str(I, False) + ': ' + _Int_To_Str(Scores[I], False));
End;

TRY

VAR
  X, Y, Z: Integer;
Begin
  X:= 10;
  Y:= 0;

  TRY
    Z:= X Div Y;
    PopupMessage('Result: ' + _Int_To_Str(Z, False));
  EXCEPT
    PopupMessage('An error occurred: division by zero.');
  End;
End;

VAR
  Started: Boolean;
Begin
  Started:= False;

  TRY
    Started:= True;
    PopupMessage('Starting task...');
    ExecuteTask;
  FINALLY
    IF Started Then
      PopupMessage('Cleanup completed.');
  End;
End;

פרוצדורות מול פונקציות

Function AddNumbers(A, B: Integer): Integer;
Begin
  Result:= A + B;
End;

Procedure LogMessage(Msg: String);
VAR
  Sum: Integer;
Begin
  LogMessage('Calculating...');
  Sum:= AddNumbers(7, 5);
  PopupMessage('Sum = ' + _Int_To_Str(Sum, False));
End;

העברת פרמטרים

// מקבלת ערך מספרי למשתנה
Procedure IncreaseByValue(X: Integer);
Begin
  X:= X + 1;
End;

// n מקבל הפניה למשוך את תוכן הפרמטר X הפרמטר
Procedure IncreaseByRef(VAR X: Integer);
Begin
  X:= X + 1;
End;


Procedure MyProc;
VAR
  N: Integer;
Begin
  N:= 10;
  IncreaseByValue(N);
  PopupMessage('After value call: ' + _Int_To_Str(N, False)); // 10

  IncreaseByRef(N);
  PopupMessage('After var call: ' + _Int_To_Str(N, False)); // 11
End;

כלי עזר למחרוזות

VAR
  S: String;
Begin
  S:= '  Pascal Script  ';

  PopupMessage('Length: ' + _Int_To_Str(Length(S), False));               //Show number of Characters
  PopupMessage('Trim: [' + Trim(S) + ']');                                //Trim white spaces before and after
  PopupMessage('Upper: ' + UpperCase(S));                                 //Set Upper Case
  PopupMessage('Lower: ' + LowerCase(S));                                 //Set Lower Case
  PopupMessage('Pos of Script: ' + _Int_To_Str(Pos('Script', S), False)); //Return the numeric position of starting phrase
  PopupMessage('Copy 1..6: ' + Copy(Trim(S), 1, 6));                      //Return the string within a position
End;

יסודות תאריך/שעה

VAR
  nowValue: TDateTime;
Begin
  nowValue:= Now;

  PopupMessage('Date: ' + _Date_To_Str(Date, False));                      //Returns value formatted like: '03/12/2025' OR '2025-03-12'
  PopupMessage('Time: ' + _Hour_To_Str(Time));                             //Returns value formatted like: '10:30'
  PopupMessage('Now: ' + _YYYY_MM_DD_To_Str(nowValue));                    //Returns value formatted in ISO 8601, like: '2025-03-12T00:00:00'
  PopupMessage('Custom: ' + Format_FixDT_To_Str(he_DD_MM_YYYY, nowValue)); //Returns current date/time in local format like: '03/12/2026' and has more options...
End;

המרת טיפוסים

VAR
  S: String;
  N: Integer;
  F: Double;
Begin
  S:= '42';
  N:= StrToInt(S);
  F:= StrToFloat('3.14');

  PopupMessage('IntToStr: ' + _Int_To_Str(N, False));
  PopupMessage('FloatToStr: ' + FloatToStr(F));

  IF TryStrToInt('abc', N) Then
    PopupMessage('Converted: ' + _Int_To_Str(N, False))
  Else
    PopupMessage('Invalid integer input.');
End;

רשומות (Records)

type
// גלובאלית TYPE הגדרת
TYPE
  TUser = RECORD
    Name: String;
    Age: Integer;
    Active: Boolean;
End;

// גישה מתוך פרוצדורה
Procedue MyProc;
VAR
  User: TUser;
Begin
  User.Name:= 'Dana';
  User.Age:= 28;
  User.Active:= True;

  PopupMessage('User: ' + User.Name + ', age ' + _Int_To_Str(User.Age, False));
End;