delphi 10.2---非常简单的数组用法求和

weixin_30492601

于 2018-10-17 14:25:00 发布

阅读量573

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/baili-luoyun/p/9803923.html

本文介绍了一个使用Delphi实现的数组初始化方法及数组元素求和过程。通过定义一个整型数组并初始化其元素，随后计算数组所有元素的总和，并将结果以消息框的形式展示。此代码示例展示了Delphi语言中数组操作的基本用法。

unit Unit9;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

TYPE
Arr=array[0..10] of integer;
type
TForm9 = class(TForm)
Button1: TButton;
function Arrinit(MM:arr):arr;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form9: TForm9;

implementation

{$R *.dfm}

{ TForm9 }

function TForm9.Arrinit(MM: arr): arr;
var
i:integer;
begin
for I := 0 to 10 do
begin
MM[i]:=i;
end;
result:=MM;
end;

procedure TForm9.Button1Click(Sender: TObject);
var
AA:arr;
i,sum:Integer;
begin
sum:=0;
AA:=Arrinit(aa);
for i := 0 to 10 do
begin
sum:=sum+AA[i];
end;
showmessage(IntToStr(sum));
end;

end.

转载于:https://www.cnblogs.com/baili-luoyun/p/9803923.html