1)const
常量名= 常量值(表示式);
2)resourcestring
常量名= 字串(常量);
2.變數
1)定義
var
名字1，名字2，…名字n:型別;
2)命名原則(參考)
變數名字= 型別(縮寫) + 作用域(簡稱) + 確切含義名稱 3)
三種賦值格式
變數名：= 值;
變數名1：= 變數2;
變數名：= 過程或函式的呼叫;
3.型別常量
1)型別常量是全域性變數並不是乙個常量，它進行了預初始化值。 2)
定義
const
名字：型別= 值;
3)種類
簡單的型別常量
陣列型別常量
記錄型別常量
集合型別常量
指標型別常量
過程型別常量 4.
資料型別
簡單型別（******）
有序型別（ordinal）
整數(integer)
字元(character)
布林(boolean)
列舉(enumerated)
子域(subrange)
實數(real)
結構型別(structured)
集合(set)
陣列(array)
記錄(record)
檔案(file)
類(class)
類指標(class reference)
介面(inte***ce)
字串型別(string)
指標型別(pointer)
過程型別(procedural)
可變型別(variant)
5.使用者自定義型別
子域型別
type
名稱 ＝ 初值…終值;
列舉型別
type
名稱 ＝ （值1,值2，值3…值n）;
陣列型別
type
名稱 ＝ array
[下標定義]of型別名
type
名稱 ＝[下標定義1，下標定義2…下標定義n] of
元素型別
或名稱 ＝[下標定義1of…array [下標定義n]of
元素型別
集合型別
type
名稱 ＝ set of
元素型別
指標型別
type
名稱 ＝^結點型別
記錄型別
type
名稱 ＝
record
網域名稱1：型別;
網域名稱1：型別;……
網域名稱n：型別;
end;
檔案型別
type
名稱 ＝ file of
元素型別 語句
簡單語句
x := y + z; // assignment
randomize; // procedure call
復合語句
begin
a := b;
c := a * 2;
end;
end之前的最後一條語句末尾分號不是必需的，你可以寫成：
begin
a := b;
c := a * 2
end;
賦值語句
在pascal 語言中賦值語句用冒號-等號操作符「:=」，
條件語句
if語句
對if-then型語句，僅當條件滿足時，語句才執行；
if checkbox1.checked then
showmessage ('checkbox1 is checked')
對if-then-else型，if語句在兩條語句中選擇一條執行
if checkbox2.checked then
showmessage ('checkbox2 is checked')
else
showmessage ('checkbox2 is not checked');
條語句，因此不能在語句中間加分號。
if 語句可以很複雜，句子中的條件部分可以是一系列條件（用and、 or 、 not等布林操作符聯接起來），if語句又可以巢狀另一
個if語句
begin
// compound if statement
if checkbox1.checked then
if checkbox2.checked then
showmessage ('checkbox1 and 2 are checked')
else
showmessage ('only checkbox1 is checked')
else
showmessage (
'checkbox1 is not checked, who cares for checkbox2?')
end;
case語句
case語句包括用來選值的表示式、可能值序列或乙個取值範圍。這些值應該是常量，並且它們必須唯一，而且應屬於有序型別。
case語句最後可以帶乙個else 語句，當沒有乙個標籤與選擇器的值一致時，執行else語句。下面是兩個簡單的例子：
case number of
1: text := 'one';
2: text := 'two';
3: text := 'three';
end;
case mychar 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;
pascal語言中的迴圈
其它程式語言中使用的迴圈語句，pascal語言中都有，它們包括 for、 while 和 repeat 語句。如果你用過其他程式語言，你會發
現pascal中的迴圈語句沒什麼特別的，因此這裡我只作簡要的說明。
for迴圈
pascal 中的for迴圈嚴格地建立在計數器基礎上，迴圈每執行一次，計數器不是增加乙個值就是減小乙個值。下面是乙個for語句的
簡例，用來將前十個數加起來：
vark, i: integer;
begin
k := 0;
for i := 1 to 10 do
k := k + i;
同樣的for語句可以用正好相反的計數器來寫：
vark, i: integer;
begin
k := 0;
for i := 10 downto 1 do
k := k + i;
pascal 中的for迴圈語句其靈活性比其他語言小（它不能指定1之外的步長），不過簡單也容易理解。如果需判斷的條件比較複雜，
或想自定義計數器，你可以用while語句或 repeat 語句，而不是for迴圈語句。
注意：for迴圈計數器不必非是數字，它可以是任何有序型別的值，例如乙個字元或乙個列舉型別值。
while語句和repeat語句
while-do 迴圈語句和 repeat-until 語句的不同點在於repeat 迴圈語句的**至少要執行一次。從下面的簡例很容易理解這一點
：while (i <= 100) and (j <= 100) do
begin
// use i and j to compute something...
i := i + 1;
j := j + 1;
end;
repeat
// use i and j to compute something...
i := i + 1;
j := j + 1;
until (i > 100) or (j > 100);
從上可見即使 i 或 j 的初始值大於100，repeat-until迴圈中的**也仍會執行一次。
注意：兩種迴圈另乙個關鍵的不同點是，repeat-until 迴圈的條件是反向的條件，只要不滿足這個條件，迴圈就執行；當條件滿足
時，迴圈終止。這正好與while-do 迴圈相反，while-do 迴圈當條件是真值時才執行。為此，我不得不在上面**中用反向條件來
獲得相同的結果。
注意：用 break 和 continue 系統過程可以改變迴圈執行的標準流程。break 中斷迴圈；continue直接跳至迴圈測試句，或使計數
器增加乙個步長，然後繼續迴圈（除非條件為空或計數器達到最大值）。還有兩個系統過程 exit 和 halt，讓你立即從函式或過程
中返回，或者終止程式。
with語句
with birthday do
begin
year := 1995;
month := 2;
day := 14;
end;
Delphi基礎語法
1 lowercase const s string string uppercase const s string string 2 comparestr const s1,s2 string integer 本函式區分大小寫，是對比字母ascii的值，得出值的差，是從第乙個字母開始對比，如果對比...
delphi操作excel語法
一 使用動態建立的方法 sheet3.columns 1 columnwidth 20 設定單元格居中 設定單元格居右 14 進行頁面設定 15 拷貝操作 5 新增新工作表 var temp worksheet worksheet begin temp worksheet excelworkbook...
delphi操作excel語法
一 使用動態建立的方法 sheet3.columns 1 columnwidth 20 設定單元格居中 設定單元格居右 14 進行頁面設定 15 拷貝操作 5 新增新工作表 var temp worksheet worksheet begin temp worksheet excelworkbook...