unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
Storage1, Storage2: array of Integer;
Total1, Total2, i: Integer;
begin
SetLength(Storage1, 100);
for i := Low(Storage1) to High(Storage1) do
Storage1[i] := Random(999);
Storage2 := Copy(Storage1, Low(Storage1), Length(Storage1));
Total1 := 0;
for i := Low(Storage1) to High(Storage1) do
Inc(Total1, Storage1[i]);
SetLength(Storage1, 0);
Total2 := 0;
for i := Low(Storage2) to High(Storage2) do
Inc(Total2, Storage2[i]);
SetLength(Storage2, 0);
ShowMessage('Total sum of Storage1 = ' + Total1.ToString + LineEnding +
'Total sum of Storage2 = ' + Total2.ToString);
end;
end.