Цитата:
Сообщение от DDS
Со StringGrid сделаю, а со второй задачей Вы разобрались?
|
Написал программу, но почему то не работает, вот код проги
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
CheckBox1: TCheckBox;
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var m,n:integer;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text='' then n:=1
else n:=strToint(Edit1.Text);
StringGrid1.RowCount:=n+1;
StringGrid2.RowCount:=n+1;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.Text='' then n:=1
else n:=strToint(Edit2.Text);
StringGrid1.ColCount:=n+1;
StringGrid2.ColCount:=n+1;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x:array [1..100, 1..100] of real;
s:array [1..100] of real;
i,j:integer;
begin
For i:=1 to n do
For j:=1 to m do
If CheckBox1.Checked:=True
then
begin
x[i,j]:=strToFloat (stringgrid1.Cells[j,i]);
StringGrid1.Enabled:=true;
end;
else
begin
x[i,j]:=random (11);
stringgrid1.Cells [j,i]:=FloatToStr (x[i,j]);
end;
For j:=1 to m do
begin
s[j]:=0;
for i:=1 to n do s[j]:=s[j]+x[i,j];
end;
For j:=1 to m do
Stringgrid2.Cells [j,i]:=FloatToStr [s[j]);
end;
end;
end.
что у меня не правильно никак не пойму, если можно напишите правильную версию проги)))