StringGrid

[serj-07]

Здравствуйте!

как из edit вставить в StringGrid? или это надо делать через массив?

 StringGrid1.Cells[0,0]:= StrToFloat(edit1.Text);

[bitSoft]

StringGrid1.Cells[1,1]:= edit1.Text;

[serj-07]

спасибо!!!

[serj-07]

Помогите пожалуйста обнулить StringGrid перед вводом.

 begin
       for i:=0 to n-1 do
       for j:=0 to 1 do
  if Length(StringGridl.Cells[i-1, j-1]) <>0 then
   m[i,j]:=StrTofloat(StringGrid1.cells[i,j]);
        else m[i,j] := 0;

[serj-07]

спасибо нашел ошибку звените за беспокойство.

[serj-07]

Помогите пожалуйста решить проблему:
почему матрица mm[i,j] не присваивает значение m[i,j].
Спасибо.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    StringGrid2: TStringGrid;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
     Type  Matr = array of array of real;
var
  Form1: TForm1;
     mm, m: matr;
     i,j,n: Longint;
implementation

{$R *.dfm}

function f(x:real):real;
  begin
   f:=sqrt(x*x+1)/(x+2);
  end;

procedure TForm1.Button1Click(Sender: TObject);
 var a,b,k: real;
     i,j: Longint;
  begin
      try
       n:= StrToInt (Trim (Edit1.Text));
      Except
      MessageDlg ('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ â ìàññèâû.', mtError, [mbOk],0);
      exit
      end;
   n:=n+2;
   SetLength(m,n,2);
   StringGrid1.RowCount:=2;
   StringGrid1.ColCount:=n;
   SetLength(mm,n,2);
   StringGrid2.RowCount:=2;
   StringGrid2.ColCount:=n;

   b:= StrToFloat(Edit2.Text);
   a:= StrToFloat(Edit3.Text);

   k:= abs(a-b)/((n-2)-1);
   for i:=0 to n-1 do
   for j:=0 to 1 do
    if Length(StringGrid1.Cells[i,j]) <>0 then
      m[i,j]:=StrTofloat(StringGrid1.cells[i,j])
    else m[i,j] := 0;

     m[0,0]:=a-k;
     m[n-1,0]:=b+k;

     begin
       for i:=1 to n-2 do
         m[i,0]:= (m[i-1,0])+k;
     end;

     begin
       for i:=0 to n-1 do
         m[i,1]:=f(m[i,0]);
     end;

      for i:=0 to n-1 do
      for j:=0 to 1 do
       StringGrid1.Cells[i,j]:= floatToStrF(m[i,j],ffFixed,8,3);

       mm[i,j]:= m[i,j];
      for i:=1 to n-2 do
        begin
           m[i,0]:=(1/k)*(1/2)*(mm[i+1,1]-mm[i,1]+mm[i,1]-mm[i-1,1]);
           m[i,1]:=(1/(k*k))*(mm[i+1,1]-mm[i,1]-mm[i,1]+mm[i-1,1]);
         end;

    for i:=1 to n-2 do
    for j:=0 to 1 do
      StringGrid2.Cells[i,j]:= floatToStrF(m[i,j],ffFixed,8,2);
  end;
end.

[Блуд]

может быть так
for i:=0 to n-1 do
for j:=0 to 1 do
begin
StringGrid1.Cells[i,j]:= floatToStrF(m[i,j],ffFixed,8,3);

mm[i,j]:= m[i,j];
end;

[serj-07]

Спасибо помогло.

[STALKER_777]

Помогите пожалуйста решить задачу(посчитать сумму элементов двух первых столбцов матрицы)
Вот начало программного модуля.
unit Unit6;

interface

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

type
TForm6 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Bevel1: TBevel;
Label3: TLabel;
StringGrid1: TStringGrid;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;

implementation

{$R *.dfm}

end.

[W0LF]

1. Одна тема - один вопрос. Свою тему сил нехватает создать?
2. Тут не решают задачи, пишите в раздел "Помощь студентам"
3. Зачем нам ваш пустой модуль? Де наработки, де вообще что нибудь?

Выполните хотя бы 2-а первых пункта и я с радостью вам отвечу...