delphi笔记之语法
YAO_ZI
这个作者很懒,什么都没留下…
展开
-
delphi笔记之while..do和if..then区别
function factorial(n:integer):integer; //先定义一个函数factorial返回integerbeginresult:=1; //此处用了一个resultwhile n>1 do //result不需要先定义,他本身就可以返回一个结果beginresult:=result*n;//result=1*nn:=n-1;{此处的while n>1 do是循环判断,比如n是5的时候 5>1 resul...原创 2021-09-16 16:31:42 · 418 阅读 · 0 评论 -
delphi笔记之array...of(冒泡排序)
//创建一个冒泡排序的过程procedure sort(var data:array of integer; n:integer);//创建一个过程其中data是动态数组{这里var还不是很明白为什么要在这里加个var如果是定义一个数组那是否也可以在外面定义,但是放在外面就不会排序了,如果有路过的大神可以帮解答一下}var i, j, temp:integer;begin for j:=n-1 downto 1 do {j=10-1 downto 1,如果知道数组是0..9是不是可.原创 2021-09-16 15:45:17 · 809 阅读 · 1 评论 -
delphi笔记之for循环
for循环:一般语法for...to...do示例:procedure TForm1.Button1Click(Sender: TObject);//点击Button按钮的时候执行vari, sum: integer;//定义2个整数变量beginsum:=0;//初始化变量sum,在这个句子里不初始化也可以for i:=1 to 100 do//循环相加,相当于当i=1时 i=2时.... sum:=sum+i;//当i=1时,sum=0+1,...原创 2021-09-15 18:02:31 · 2229 阅读 · 0 评论