Witam. Jestem początkujący. Nie chce aby ktoś mi napisał gotowy program itp. Chcę jedynie abyście wyjaśnili mi wszystkie instrukjce w tym programie, ponieważ dla mnie to bardzo ważne. Myślę że nie będziecie mieli z tym problemu. Z góry dzięki :)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button6: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,j,s:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to stringgrid1.ColCount-1 do
for j:=0 to stringgrid1.RowCount-1 do
stringgrid1.Cells[i,j]:=inttostr(random(49));
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
i:=0;
for j:=0 to stringgrid1.RowCount-1 do
s:=s+strtoint(stringgrid1.Cells[i,j]);
label1.Caption:=inttostr(s);
s:=0;
i:=1;
for j:=0 to stringgrid1.RowCount-1 do
s:=s+strtoint(stringgrid1.Cells[i,j]);
label2.Caption:=inttostr(s);
s:=0;
i:=2;
for j:=0 to stringgrid1.RowCount-1 do
s:=s+strtoint(stringgrid1.Cells[i,j]);
label3.Caption:=inttostr(s);
s:=0;
i:=3;
for j:=0 to stringgrid1.RowCount-1 do
s:=s+strtoint(stringgrid1.Cells[i,j]);
label4.Caption:=inttostr(s);
s:=0;
end;
end.