img1.jpg (, : 73)
Как это сделать? Мой код, где заполнение происходит один раз (только первые 14 элементов).
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Data : array of Integer;
Data2 : array of Integer;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
var i,j,k,m:Integer;
begin
SetLength(Data,300);
SetLength(Data2,14);
for k := Low(Data2) to High(Data2) do
begin
Data2[k]:=k;
end;
for i := Low(Data) to High(Data) do
begin
Data[i]:=0;
end;
m:=0;
for j := Low(Data) to High(Data) do
begin
if (j mod 3 = 1) and (m<=High(Data2)) then
begin
Data[j]:=Data2[m];
Inc(m);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var j:Integer;
begin
for j := Low(Data) to High(Data) do
begin
Memo1.Lines.Add(IntToStr(Data[j]));
end;
end;
end.