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

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

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

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

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

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

אופרטורים

הצהרת משתנים (var) וקבועים (const)

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

var
  counter: Integer;
  userName: String;
  isReady: Boolean;

begin
  counter := 0;
  userName := 'Dana';
  isReady := True;

  ShowMessage(APP_NAME + ' / retries: ' + IntToStr(MAX_RETRIES));
end;

// Multiple variables of the same type in one line
var
  x, y, z: Integer;
begin
  x := 10;
  y := 20;
  z := x + y;
end;

תנאי IF

var
  age: Integer;
  isMember: Boolean;
begin
  age := 21;
  isMember := True;

  if (age >= 18) and (isMember = True) then
    ShowMessage('Access granted')
  else
    ShowMessage('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
      ShowMessage('Iteration: ' + IntToStr(i));
    end;

  for i := 5 downto 1 do
    begin
      ShowMessage('Countdown: ' + IntToStr(i));
    end;
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': ShowMessage('Starting...');
    'stop': ShowMessage('Stopping...');
    'pause': ShowMessage('Paused.');
  else
    ShowMessage('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
    ShowMessage('Score #' + IntToStr(i) + ': ' + IntToStr(scores[i]));
end;

TRY

var
  x, y, z: Integer;
begin
  x := 10;
  y := 0;

  try
    z := x div y;
    ShowMessage('Result: ' + IntToStr(z));
  except
    ShowMessage('An error occurred: division by zero.');
  end;
end;

var
  started: Boolean;
begin
  started := False;

  try
    started := True;
    ShowMessage('Starting task...');
    ExecuteTask;
  finally
    if started then
      ShowMessage('Cleanup completed.');
  end;
end;

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

procedure LogMessage(msg: String);
begin
  ShowMessage(msg);
end;

function AddNumbers(a, b: Integer): Integer;
begin
  Result := a + b;
end;

var
  sum: Integer;
begin
  LogMessage('Calculating...');
  sum := AddNumbers(7, 5);
  ShowMessage('Sum = ' + IntToStr(sum));
end;

function BuildWelcomeMessage(userName: String): String;
  function NormalizeName(const rawName: String): String;
  begin
    NormalizeName := Trim(rawName);
  end;
begin
  Result := 'Hello, ' + NormalizeName(userName);
end;

begin
  ShowMessage(BuildWelcomeMessage('  Yaniv  '));
end;

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

procedure IncreaseByValue(x: Integer);
begin
  x := x + 1;
end;

procedure IncreaseByRef(var x: Integer);
begin
  x := x + 1;
end;

var
  n: Integer;
begin
  n := 10;
  IncreaseByValue(n);
  ShowMessage('After value call: ' + IntToStr(n)); // 10

  IncreaseByRef(n);
  ShowMessage('After var call: ' + IntToStr(n)); // 11
end;

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

var
  s: String;
begin
  s := '  Pascal Script  ';

  ShowMessage('Length: ' + IntToStr(Length(s)));
  ShowMessage('Trim: [' + Trim(s) + ']');
  ShowMessage('Upper: ' + UpperCase(s));
  ShowMessage('Lower: ' + LowerCase(s));
  ShowMessage('Pos of Script: ' + IntToStr(Pos('Script', s)));
  ShowMessage('Copy 1..6: ' + Copy(Trim(s), 1, 6));
end;

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

var
  nowValue: TDateTime;
begin
  nowValue := Now;

  ShowMessage('Date: ' + DateToStr(Date));
  ShowMessage('Time: ' + TimeToStr(Time));
  ShowMessage('Now: ' + DateTimeToStr(nowValue));
  ShowMessage('Custom: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss', nowValue));
end;

המרת טיפוסים

var
  s: String;
  n: Integer;
  f: Double;
begin
  s := '42';
  n := StrToInt(s);
  f := StrToFloat('3.14');

  ShowMessage('IntToStr: ' + IntToStr(n));
  ShowMessage('FloatToStr: ' + FloatToStr(f));

  if TryStrToInt('abc', n) then
    ShowMessage('Converted: ' + IntToStr(n))
  else
    ShowMessage('Invalid integer input.');
end;

רשומות (Records)

type
  TUser = record
    Name: String;
    Age: Integer;
    Active: Boolean;
  end;

var
  user: TUser;
begin
  user.Name := 'Dana';
  user.Age := 28;
  user.Active := True;

  ShowMessage('User: ' + user.Name + ', age ' + IntToStr(user.Age));
end;