jsj_DELPHI基本语法(17)

delphi网络资源总结,话了重点,方便阅读,记忆

2.1.8.5

Object Pascal NoValue A B B A forword … implementation var alpha:Integer; procedure Test2(var

A:Integer):forword; {Test2 } procedure Test1(var A:Integer); begin A :=A-1; if A>0 then test2(A); { Test2} writeln(A); end;

procedure Test2(var A:Integer);{ Test2 } begin A :=A div 2;

2.1.9.3

Double var Check : array

[1..10] of Double; Check 10 Double 1 10 [] Check 10 Check[1] type TCheck = array[1..10] of Double; var Check :TCheck; 0.0 Check for J := 1 to 10 do Check[J] := 0.0; 20 20

type Ttable = array[1..20,1..20] of Double; var table1:TTable;