Từ khóa

Tài liệu tham khảo này trình bày các từ khóa DelphiScript được sử dụng cho Hệ thống Scripting trong Altium Designer. Hệ thống scripting hỗ trợ ngôn ngữ DelphiScript, vốn rất giống với ngôn ngữ lập trình Embarcadero Delphi™. Điểm khác biệt chính là DelphiScript là một ngôn ngữ scripting không kiểu.

Trong phần này, các từ khóa DelphiScript thông dụng được trình bày kèm thông tin chi tiết và ví dụ. Để biết thêm thông tin về từ khóa, chẳng hạn như các hàm xử lý tệp Delphi, toán học và chuỗi, xem Hàm và Tài liệu tham khảo Embarcadero Delphi.

And

Declaration
Toán tử And thực hiện phép and logic/bitwise.

Description
Toán tử And thực hiện phép logic nếu các toán hạng có kiểu boolean, hoặc phép And bitwise nếu các toán hạng là số nguyên.

Example of a boolean And evaluation:

Var
  I, J : Integer
Begin
  I := $F0;
  J := $8F;
  ShowMessage(IntToStr(I and J));
End;

Example of a logical And evaluation:

Var
  S : String;
Begin
  S := '';
  If (Length(S) > 0) and (S[1\] = 'X') Then Delete(S,1,1);
End;

See also
Từ khóa Or
Từ khóa Xor

Array

Declaration
Array [index range];

Description
Ngôn ngữ DelphiScript là ngôn ngữ không kiểu, vì vậy kích thước hoặc phạm vi của một mảng cần được chỉ định. Kiểu phần tử mà mảng có thể chứa vẫn có thể được định nghĩa, nhưng không bắt buộc. Khai báo Open array không được hỗ trợ.

Example:

var x : array [1..2]; 

Begin

Declaration
Begin
  statement
End;

Description
Từ khóa begin bắt đầu một khối trong script. Một khối là phần thân chính của script và có thể bao gồm bất kỳ số lượng câu lệnh nào, đồng thời có thể được dùng ở bất kỳ nơi nào yêu cầu một câu lệnh đơn, chẳng hạn như phần thân của câu lệnh điều kiện hoặc lặp.

Example:

Var
  Test : Integer;
Begin
  Test := Test + 4;
  ShowMessage(IntToStr(Test));
End;

See also
Từ khóa End

Break

Declaration
Break;

Description
Một Break thoát ra khỏi một vòng lặp, tương tự như câu lệnh Goto.

Example:

While Condition Do
Begin
  DoSomething;
  Begin
    If AnotherCondition Then
      Break;
  End;
End;

See also
Từ khóa While
Từ khóa Continue
Từ khóa Do
Từ khóa Repeat

Case

Declaration
Case expression Of
  Value range : Expression;
Else Expression;
End;

Description
Các câu lệnh Case chọn một nhánh trong số nhiều nhánh có thể, tùy theo giá trị của biểu thức.

Trong nhiều tình huống, một tập hợp phức tạp các câu lệnh If có thể được đơn giản hóa bằng cách thay thế chúng bằng các câu lệnh Case. Câu lệnh case trong một biểu thức được dùng để chọn một giá trị, một danh sách các giá trị có thể, hoặc một dải giá trị. Bất kỳ kiểu nào cũng có thể được dùng trong câu lệnh case vì DelphiScript là ngôn ngữ không kiểu. Các câu lệnh Case có thể có một câu lệnh else sẽ được thực thi nếu không có nhãn nào tương ứng với giá trị của bộ chọn (trong điều kiện Case Of).

Example 1:

Case Char Of
  '+'     : Text := 'Plus sign';
  '-'     : Text := 'Minus sign';
  '*', '/': Text := 'Multiplication or division';
  '0'..'9': Text := 'Number';
  'a'..'z': Text := 'Lowercase character';
  'A'..'Z': Text := 'Uppercase character';
Else
  Text := 'Unknown character';
End;

Example 2:

Case UserName Of
  Jack', 'Joe' : IsAdministrator := true;
  'Fred' : IsAdministrator := false;
Else
  Raise('Unknown User');
End;

See also
Từ khóa Of

Continue

Declaration
Continue

Description
Câu lệnh Continue bỏ qua phần thân của một vòng lặp, tương tự như câu lệnh Goto;

Example:

Var
  I := 0; s:= 1;
Begin
  While True Do
  Begin
  S := S \* 2;
  I := I \\+ 1;
  If I <> 4 then continue;
  Break;
End;

See also
Từ khóa Break
Từ khóa While
Từ khóa Continue
Từ khóa Do
Từ khóa Repeat

Const

Declaration
Const
Name = Expression;

Description
Từ khóa Const chỉ định bất kỳ biểu thức hằng nào làm giá trị của một hằng số. Nếu bạn cố sửa đổi biểu thức có kiểu const trong script, hệ thống scripting sẽ phát sinh lỗi undeclared identifier.

Example:

Const
  b = 30;
Begin
  ShowMessage(IntTtStr(b));
End;

Nỗ lực thay đổi giá trị của tham số b const sẽ tạo ra lỗi, ví dụ:

Const
  b = 30;
Begin
  b := 40;
  ShowMessage(IntToStr(b));
End;

Div

Declaration
dividend div divisor

Description
Toán tử Div thực hiện phép chia số nguyên, loại bỏ phần thập phân mà không làm tròn. Nếu số chia bằng 0, DelphiScript sẽ báo lỗi.

See also
Toán tử Mod
Toán tử Div

Do

Declaration

• For variable := expression1 to expression2 do câu lệnh
• While expression do câu lệnh
• With expression do câu lệnh.

Description
Từ khóa Do là một phần của câu lệnh For, While and With trong DelphiScript.

Example:

For i := 0 To AnIndex - 1 Do
  S := S + #13 + AString;

See also
Từ khóa For
Từ khóa To
Từ khóa While
Từ khóa With
Từ khóa DownTo

DownTo

Declaration
For variable := expression1 DownTo expression2 Do statement.

Description
Dùng DownTo trong vòng lặp For để đếm giảm dần.

See also
Từ khóa For
Từ khóa To
Từ khóa Do

Else

Declaration

• If condition then statement Else statement
• Try statement except exception Else statement end
• Case expression of Else end;

Description
Từ khóa Else giới thiệu phần bắt tất cả của một số câu lệnh. Lưu ý rằng phần else của câu lệnh if được theo sau bởi một câu lệnh đơn, nhưng phần else của các câu lệnh try-except và case có thể có nhiều câu lệnh.

See also
Từ khóa If
Từ khóa Then
Từ khóa Try
Từ khóa Case

End

Declaration

• Begin statements End;
• Try statements Except Exception clauses... else Statements... End;
• Try statements Finally statements End;
• Case Expression of clauses Else statements... End;

Description
Từ khóa End kết thúc một khối hoặc một phần nhiều thành phần như khai báo, câu lệnh Case, v.v.

See also
Từ khóa Begin
Từ khóa Case
Từ khóa Try

Except

Declaration
Try statements Except statements End;

Description
Dùng các khối Try-Except để xử lý các trường hợp ngoại lệ, ví dụ để bắt các ngoại lệ cụ thể và thực hiện điều gì đó hữu ích với chúng, như thêm chúng vào nhật ký lỗi hoặc tạo hộp thoại thân thiện. Vì từ khóa On không được hỗ trợ trong DelphiScript, hãy dùng câu lệnh Raise bên trong khối Except và chỉ báo một thông điệp dạng văn bản.

Example:

Try
  X := Y/Z;
Except
  Raise('A divide by zero error!');
End;

See also
Từ khóa End
Finally keyword
Try keyword

Finally

Declaration
Try statements... Finally statements... End;

Description
Từ khóa finally bắt đầu phần finally của một khối try-finally. Các câu lệnh trong khối finally luôn được chạy, bất kể luồng điều khiển rời khỏi khối try như thế nào: ngoại lệ, exit hay break. Nên sử dụng khối try-finally khi xử lý việc tạo/hủy đối tượng và File IO.

See also
Từ khóa End
Từ khóa Raise
Từ khóa Try

For

Declaration

• for variable := expression1 to expression2 do statement
• for variable := expression1 downto expression2 do statement

Description
Vòng lặp for đánh giá các biểu thức xác định giới hạn của vòng lặp này, sau đó thực hiện lặp phần thân vòng lặp thông qua biến điều khiển vòng lặp, biến này được cập nhật sau mỗi lần lặp.

Example:

For i := 0 to AnIndex - 1 Do
Begin
  S := S + #13 + AString;
End;
ShowMessage(S);

See also
Từ khóa Do
Từ khóa DownTo
Từ khóa Repeat
Từ khóa To
Từ khóa While
Từ khóa With

Forward

Declaration
subroutine header; forward;

Description
Chỉ thị Forward cho phép một hàm hoặc thủ tục được khai báo trước khi nó được gọi bằng cách khai báo phần đầu (tên, tham số và kiểu trả về) với chỉ thị forward.

Function

Declaration
Function name (parameters) : return type;

Description
Một Function là chương trình con trả về một giá trị. Lưu ý rằng con trỏ tới hàm không được phép trong script — tức là không thể định nghĩa các kiểu hàm. Các biến được khai báo bên trong một hàm sẽ không thể truy cập từ bên ngoài thủ tục này.

Example

Function TestFunc(Min, Max : integer) : integer;
Begin
  Result := Random(Max - Min +1);
End;

Goto

Declaration
goto label

Description
Câu lệnh goto chuyển quyền điều khiển đến nhãn đã cho. Nhãn có thể là bất kỳ định danh nào hoặc một chuỗi số gồm tối đa bốn chữ số.

Example

Label StartHere;
// code
 
StartHere: //do anything;
 
Goto StartHere;

See also
Từ khóa Label

If

Declaration

• if condition then statement;
• if condition then statement1 else statement2;

Description
Điều kiện cho từ khóa If phải là một biểu thức boolean. Từ khóa Else là tùy chọn.

Example

If A > B Then
    ShowMessage('X>Y and A > B');
Else
    ShowMessage('X>Y and A <=B');
End;

See also
Từ khóa And
Từ khóa Begin
Từ khóa Or
Từ khóa Then
Từ khóa Else

Interface

Declaration
Interface
// Globally unique identifier string.
Methods
Properties
End;

Description
Từ khóa interface cho phép truy cập tới một đối tượng đang tồn tại trong bộ nhớ và gọi các phương thức của đối tượng đó. Một interface chỉ có thể bao gồm thuộc tính và phương thức — không có dữ liệu. Vì interface không thể chứa dữ liệu, các thuộc tính của nó phải ghi vào và đọc từ các phương thức. Quan trọng nhất là interface không có phần triển khai, vì chúng chỉ định nghĩa một hợp đồng với một đối tượng đang tồn tại trong bộ nhớ.

Một interface có thể được xem như một điểm tiếp xúc với một đối tượng đang tồn tại trong bộ nhớ của máy tính, và cung cấp khả năng đọc/ghi dữ liệu thông qua các thuộc tính của interface. Interface yêu cầu dữ liệu từ đối tượng liên kết với nó.

DelphiScript là ngôn ngữ không kiểu, do đó bạn không thể định nghĩa các kiểu mới như record, mảng hoặc lớp mới, cũng như các interface liên quan.

Label

Declaration
label digits, identifier, ...;

Description
Từ khóa label khai báo một hoặc nhiều nhãn. Một nhãn có thể là một chuỗi số tối đa bốn chữ số hoặc một định danh. Một nhãn có thể được dùng trong cùng một khối để xác định một câu lệnh làm đích của câu lệnh goto.

Example:

Label StartHere;
// code
StartHere: //do anything;
Goto StartHere;

See also
Từ khóa Goto

Mod

Declaration
Integer expression mod integer expression

Description
Toán tử mod thực hiện phép modulo số nguyên hoặc phép lấy phần dư. Kết quả của A mod B là A - (A div B) * B.

See also
Hàm Div

Nil

Declaration
const nil = pointer(0);

Description
Từ khóa nil là một giá trị con trỏ đặc biệt được đảm bảo là khác biệt và không trỏ tới đâu cả.

Not

Declaration

• not boolean expression
• not integer expression

Description
Toán tử not thực hiện phép phủ định. Nếu toán hạng có kiểu boolean, phép phủ định là phủ định logic. Not False = True và not true = false. Nếu toán hạng là số nguyên, toán tử not thực hiện phép phủ định bitwise trên từng bit trong giá trị số nguyên — tức là phép bù.

Of

Declaration
case expression of
  selector: expression1
  ...
end

Description
Từ khóa Of được dùng cho câu lệnh case.

See also
Câu lệnh Case

Or

Declaration

• boolean expression or boolean expression
• integer expression or integer expression

Description
Toán tử or thực hiện phép Or logic nếu các toán hạng có kiểu boolean, hoặc phép Or bitwise nếu các toán hạng là số nguyên. Phép Or logic chỉ sai nếu cả hai toán hạng đều sai; ngược lại, nó đúng khi ít nhất một toán hạng đúng.

See also
Từ khóa And
Từ khóa Not
Từ khóa Shl
Từ khóa Shr
Từ khóa Xor

Procedure

Declaration

• Procedure name;
• Procedure Name (Parameter, ...);

Description
Từ khóa procedure khai báo một chương trình con không có kiểu trả về. Các biến được khai báo bên trong một procedure sẽ không thể truy cập từ bên ngoài procedure này. Lưu ý rằng từ khóa này có thể được dùng nhưng sẽ bị hệ thống scripting bỏ qua.

Example:

Procedure TestRand(Var Rand: Integer; Max : Integer);
Begin
  Rand := Random(Max);
End;

See also
Từ khóa Function

Program

Declaration
Program Name;
declarations...
Block

Description
Từ khóa program bắt đầu một script. Phần mở rộng tệp cho một script là *.pas. Lưu ý rằng từ khóa này có thể được dùng nhưng sẽ bị hệ thống scripting bỏ qua.

See also
Từ khóa Function

Raise

Declaration
Raise statement;

Description
Từ khóa raise có liên quan đến từ khóa Try. Từ khóa Raise có thể được dùng mà không có tham số để phát sinh lại ngoại lệ gần nhất. Nó cũng có thể được dùng với tham số chuỗi để phát sinh một ngoại lệ bằng một thông điệp cụ thể.

Example:

Raise(Format('Invalid Value Entered : %d', \[Height])); 

Lưu ý rằng từ khóa On không được hỗ trợ trong DelphiScript, vì vậy các đối tượng Exception không thể được sử dụng trong script.

Repeat

Declaration
repeat
statements;
until boolean expression

Description
Các câu lệnh bên trong khối Repeat Until được thực thi lặp lại cho đến khi biểu thức boolean là true.

Example:

Repeat
  Write('Enter a value (0..9): ');
  ShowMessage(IntToStr(I));
Until (I >= 0) and (I <= 9);

See also
Until keyword

Result

Declaration
Var result : Function return type;

Description
Mọi hàm trong một script phải sử dụng từ khóa Result để trả về giá trị kết quả. Kiểu của biến là kiểu trả về của hàm.

See also
Function keyword

Shl

Declaration
value shl bits

Description
Toán tử shl thực hiện dịch trái một giá trị số nguyên đi Bits vị trí bit. Các bit bị khuyết sẽ được điền bằng các bit 0 ở bên phải.

See also
And keyword
Not keyword
Or keyword
Shr keyword
Xor keyword

Shr

Declaration
value shr bits

Description
Toán tử shr thực hiện dịch phải một giá trị số nguyên đi Bits vị trí bit. Các bit bị khuyết sẽ được điền bằng các bit 0 ở bên trái.

See also
And keyword
Not keyword
Or keyword
Shl keyword
Xor keyword

String

Declaration

• type string;
• type Name = string[Constant]

Description
Từ khóa string biểu thị kiểu chuỗi.

Then

Declaration
If expression then statement

Description
Từ khóa Then là một phần của câu lệnh If.
See also
If keyword

To

Declaration
For variable := expression1 to expression2 do statement

Description
Từ khóa to là một phần của vòng lặp for đếm tăng dần.

Example

For i := 0 to AnIndex - 1 do
  S := S + #13 + AString;

See also
Downto keyword
For keyword

Try

Declaration

• Try statements finally statements end;
• Try statements except statements end;

Description
Từ khóa try mở đầu cho câu lệnh try-except hoặc câu lệnh try-finally. Hai câu lệnh này có liên quan với nhau nhưng phục vụ các mục đích khác nhau.

Try Finally
Các câu lệnh trong khối finally luôn được thực thi bất kể luồng điều khiển rời khỏi khối try theo cách nào: exception, Exit, hoặc Break. Hãy dùng khối try-finally để giải phóng các đối tượng tạm thời và tài nguyên khác, cũng như thực hiện các thao tác dọn dẹp. Thông thường bạn không cần nhiều hơn một câu lệnh try-finally trong một thủ tục con.

Example:

Reset(F);
Try
  ...  // process file F
Finally
  CloseFile(F);
End;

Try Except
Hãy dùng try-except để xử lý các trường hợp ngoại lệ, ví dụ để bắt các ngoại lệ cụ thể và làm điều gì đó hữu ích với chúng, chẳng hạn thêm chúng vào nhật ký lỗi hoặc tạo một hộp thoại thân thiện. Vì từ khóa On không được hỗ trợ trong DelphiScript, hãy dùng câu lệnh Raise bên trong khối Except.

Example:

Try
  X := Y/Z;
Except
  Raise('A divide by zero error!');
End;

See also
Raise keyword

Type

Declaration
Type Name = type declaration ...

Description
Từ khóa Type khai báo kiểu cho một biến. Vì DelphiScript là ngôn ngữ không kiểu, nên không cần thiết phải khai báo biến với một kiểu cụ thể, nhưng vẫn có thể làm vậy để tăng tính dễ đọc của script. Tất cả các biến trong script luôn có kiểu Variant. Hạn chế lớn nhất khi viết script là bạn không thể khai báo record hoặc class.

Ép kiểu bị bỏ qua trong script nên các kiểu trong khai báo biến sẽ bị bỏ qua và có thể lược bỏ. Vì vậy, các khai báo sau là hợp lệ:

Example:
var a : integer;
var b : integer;
var c, d;

Các kiểu của tham số trong khai báo procedure/function bị bỏ qua và có thể lược bỏ. Ví dụ, đoạn mã này là hợp lệ:

Function sum(a, b) : integer;
Begin
  Result := a + b;
End;

Nói chung, variant có thể được dùng để lưu trữ bất kỳ kiểu dữ liệu nào và thực hiện nhiều phép toán cũng như chuyển đổi kiểu. Một variant được kiểm tra kiểu và tính toán tại thời điểm chạy. Trình biên dịch sẽ không cảnh báo các lỗi có thể có trong mã; những lỗi này chỉ có thể được phát hiện bằng kiểm thử kỹ lưỡng. Nhìn chung, các phần mã dùng variant có thể được xem là mã thông dịch, vì nhiều thao tác không thể được phân giải cho đến thời điểm chạy. Điều này có thể ảnh hưởng đến tốc độ của mã.

Example:

Var
V
Begin
  // you can assign to it values of several different types:
  V := 10;
  V := 'Hello, World';
  V := 45.55;
End;

See also
Var keyword

Unit

Declaration

• Unit Name;
interface
   declarations
implementation
   declarations
   statements
Initialization
   statements
finalization
   statements
end.
   
• Unit Name;
interface
   declarations
implementation
   declarations
   statements
begin
   statements
end.

Từ khóa unit mở đầu một unit, là mô-đun cơ bản của script. Lưu ý rằng từ khóa này có thể được dùng nhưng sẽ bị hệ thống script bỏ qua.

See also
Function keyword
Program keyword

Until

Declaration
Repeat
Statements;
Until boolean expression

Description
Từ khóa until đánh dấu phần kết thúc của khối Repeat-Until. Các câu lệnh bên trong khối Repeat-Until được thực thi lặp lại cho đến khi biểu thức boolean là true.

Example:

Repeat
  Write('Enter a value (0..9): ');
  ShowMessage(IntToStr(I));
Until (I >= 0) and (I <= 9);

See also
Repeat keyword

Uses

Declaration
Uses Unit Name, ...;

Description
Từ khóa uses liệt kê tên các unit được import vào unit bao quanh. Khai báo uses là tùy chọn vì hệ thống script đã hỗ trợ các unit được import trong Altium Designer. Bạn có thể thêm khai báo uses để tăng tính dễ đọc.

Tất cả các unit được lưu trong cùng một project có thể truy cập các biến toàn cục từ bất kỳ unit nào trong số đó. Hãy lưu ý điều này khi khai báo biến trong các unit thuộc cùng một project.

Các API Client, PCB, Schematic và WorkSpace Manager của Altium Designer cùng với SysUtils, Classes và các unit khác của Delphi đều đã được import và sẵn sàng để sử dụng trong script - vì vậy không có nhu cầu cụ thể phải khai báo các unit này trong script.

See also

Var

Declaration
Name : Type
Name : Type = Expression;

DelphiScript Variables
Tất cả các biến trong script luôn có kiểu Variant. Ép kiểu bị bỏ qua. Các kiểu trong khai báo biến sẽ bị bỏ qua và có thể lược bỏ, vì vậy các khai báo sau là hợp lệ:
Var a : integer;
Var b : integer;
Var c, d;

Các kiểu của tham số trong khai báo procedure/function bị bỏ qua và có thể lược bỏ. Ví dụ, đoạn mã này là hợp lệ:

Function sum(a, b) : integer;
Begin
  Result := a + b;
End;

Nói chung, variant có thể được dùng để lưu trữ bất kỳ kiểu dữ liệu nào và thực hiện nhiều phép toán cũng như chuyển đổi kiểu. Một variant được kiểm tra kiểu và tính toán tại thời điểm chạy. Trình biên dịch sẽ không cảnh báo các lỗi có thể có trong mã; những lỗi này chỉ có thể được phát hiện bằng kiểm thử kỹ lưỡng. Nhìn chung, các phần mã dùng variant có thể được xem là mã thông dịch, vì nhiều thao tác không thể được phân giải cho đến thời điểm chạy. Điều này có thể ảnh hưởng đến tốc độ của mã.

Khai báo một biến variant:

Var
  V;
Begin
  // you can assign to it values of several different types:
  V := 10;
  V := 'Hello, World';
  V := 45.55;
End;

Array elements
kiểu của các phần tử mảng sẽ bị bỏ qua và có thể lược bỏ, vì vậy các khai báo sau là tương đương nhau:
Var x : array [1..2] of double;
Var x : array [1..2];

Illegal array example:
Type
  TVertices = Array [1..50] Of TLocation;
Var
  NewVertices : TVertices;

Legal array example:
Var
  NewVertices : Array [1..50] of TLocation;

While

Declaration
while expression do statement

Description
Câu lệnh while thực thi lặp lại câu lệnh miễn là biểu thức là true.

See also
Break keyword
Continue keyword
Do keyword
DownTo keyword
For keyword
Repeat keyword
To keyword
With keyword

With

Declaration
with expression do statement

Description
Câu lệnh With thêm một tham chiếu đến record, object, class hoặc interface vào phạm vi để phân giải tên ký hiệu.

Normal version example:

Form.Canvas.Pen.Width := 2;
Form.Canvas.Pen.Color := clSilver;

With version example:

With Form.Canvas.Pen do
Begin
  Width := 2;
  Color := clSilver;
End;

See also
Do keyword

Xor

Declaration

• biểu thức boolean Xor biểu thức boolean
• integer expression Xor integer expression

Description
Toán tử xor thực hiện phép Exclusive Or trên các toán hạng của nó. Nếu các toán hạng có kiểu boolean, nó trả về kết quả boolean — true nếu các toán hạng khác nhau và false nếu chúng giống nhau.

Một phép xor trên số nguyên tác động lên từng bit của các toán hạng, đặt bit kết quả thành 1 nếu các bit tương ứng trong cả hai toán hạng khác nhau, và thành 0 nếu cả hai toán hạng có các bit giống hệt nhau. Nếu một toán hạng nhỏ hơn toán hạng kia, toán hạng nhỏ hơn sẽ được mở rộng với 0 ở các bit ngoài cùng bên trái.

See also
And keyword
Not keyword
Or keyword
Shl keyword
Shr keyword