Naeel Maqsudov » 08 май 2009, 15:31
Санчез, немножечко не в тему ну ладно.
Положите на форму Form1 кнопку и грид затем используйте это:
Код: Выделить всё
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FillArray;
procedure ShowArray;
private
{ Private declarations }
FArr:array[1..99] of integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FillArray;
var
i:integer;
begin
for i:= 1 to 99 do begin
FArr[i]:=random(1000);
end;
end;
procedure TForm1.ShowArray;
var
i:integer;
begin
with StringGrid1 do begin
ColCount:=2;
RowCount:=100;
FixedRows:=1;
FixedCols:=1;
Cells[0,0]:='Элемент'; Cells[1,0]:='Значение';
for i:=1 to 98 do begin
Cells[0,i]:=inttostr(succ(i));
Cells[1,i]:=inttostr(FArr[succ(i)]);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FillArray;
ShowArray;
end;
end.
[b]Санчез[/b], немножечко не в тему ну ладно.
Положите на форму Form1 кнопку и грид затем используйте это:
[code]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FillArray;
procedure ShowArray;
private
{ Private declarations }
FArr:array[1..99] of integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FillArray;
var
i:integer;
begin
for i:= 1 to 99 do begin
FArr[i]:=random(1000);
end;
end;
procedure TForm1.ShowArray;
var
i:integer;
begin
with StringGrid1 do begin
ColCount:=2;
RowCount:=100;
FixedRows:=1;
FixedCols:=1;
Cells[0,0]:='Элемент'; Cells[1,0]:='Значение';
for i:=1 to 98 do begin
Cells[0,i]:=inttostr(succ(i));
Cells[1,i]:=inttostr(FArr[succ(i)]);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FillArray;
ShowArray;
end;
end.
[/code]