| // ma remarque |
' ma remarque |
| Byte |
Byte |
Case valeur of
0:instruction0;
1:instruction1;
2,3:instruction2et3;
Else instructionpardefaut;
End; |
Select Case valeur
Case 0
instruction0
Case 1
instruction1
Case 2,3
instruction2et3
Case Else
instructionpardefaut
End Select |
| Const constante = 1; |
Const constante = 1 |
| Const Valeur : Integer = 10; |
Const Valeur As Integer = 10 |
| Double |
Double |
For I := 0 to 9 do Begin
...
End; |
For I = 0 To 9 Step 1
...
Next |
Function mafonction:typederetour;Begin
...
End; |
Function mafonction() As typederetour
...
End Function |
If condition Then instruction_vrai
Else instruction_faux; |
If condition Then
instruction_vrai
Else
instruction_faux
End If |
| LongInt |
Long |
Procedure maprocedure;Begin
...
End; |
Sub maprocedure
...
End Sub |
Procedure maprocedure(Var mavaleur:Integer);Begin
mavaleur:=0;
End; |
Sub maprocedure(ByRef mavaleur As Integer)
...
End Sub |
Repeat
Until condition_vrai; |
Do
Loop condition_vrai |
| Single |
Single |
| TDateTime |
Date |
Type MonEnregistrement = Record
...
End;
|
Type MonEnregistrement
...
End Type
|
| Var Tableau : Array[0..9] of Integer; |
Dim Tableau(10) As Integer |
| Var Tableau : Array[15..25] of Integer; |
Dim Tableau(15 To 25) As Integer |
| Var Tableau : Array[15..25] of Integer; |
Dim Tableau(15 To 25) As Integer |
| Var Tableau : Array[1..10,1..5] of Integer; |
Dim Tableau(1 To 10, 1 To 5) As Integer |
With label1 do Begin
Caption := "Libelle";
AutoZise := true;
End; |
With label1
.Caption = "Libelle"
.AutoZise = true
End With |
| While I < 9 do Inc(I); |
Do While I < 9
I = I + 1
Loop |
