нужен цикл Delphi

[SL1M_DOGG]

Люблю разбирать все на простом примере.
Вот программка:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x: array [0..3] of real;
  y: array [0..3] of real;
  z: array [0..3] of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
Ea, Pg: OLEVariant;
begin
    Ea:= CreateOLEObject('Excel.Application');
   Ea.Workbooks.Open('D:\Excel\res.xls');
   Ea.Visible:= True;
   Pg:= Ea.Workbooks[1].Worksheets[1];
   Pg.Activate;
   for i := 1 to 3 do
   begin
   x[i]:=x[i-1]+1;
   y[i]:=y[i-1]+2;
   z[i]:=x[i]+y[i];
   Pg.Cells[1,1].Value:=z[i];
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Ex, Sh : OLEVariant;
begin
  Ex := CreateOleObject('Excel.Application');
  Ex.Workbooks.Open('D:\Excel\doc.xls');
  Ex.DisplayAlerts := false;
  EX.Visible := true;
  Sh := Ex.Workbooks[1].WorkSheets[1];
  Sh.Activate;
  x[0]:=Sh.Cells[1,1].Value;
  y[0]:=Sh.Cells[1,2].Value;
end;

end.

Она берет начальные данные из одного эксель файла (x,y), пересчитывает z, и выводит в другой эксель файл. Так вот нужен цикл, который будет выводить каждый раз новую z при нажатии на какую то Button. К примеру мы взяли начальные данные x=1 y=2... в программе x[i]:=x[i-1]+1; y[i]:=y[i-1]+1; z[i]:=x[i]+y[i], x получается 2, y=3, z=5. А в след. периоде чтобы z=7... Ну вообщем вы меня поняли =) как это все осуществить?!

[Serge_Bliznykov]

Кросспостинг (создание одинаковых тем и сообщений) запрещён правилами форума!


Модератор.