Перевд з C# на Delphi

[ogamilait]

Написал код на C# но препод уперся и нужно на Delphi ему(в Delphi я 0). Код не большой, нужно так же таблица и график что б выводился. Буду премного благодарен.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Windows.Forms.DataVisualization.Charting;

namespace graf
{
    public partial class Form1 : Form
    {
        const double n = 0.4;
        const double d = 2;

        public Form1()
        {
            InitializeComponent();
        }

      
        private void panel1_Paint(object sender, PaintEventArgs e)
        {
        }

        private void button1_Click(object sender, EventArgs e)
        {
            int i; int k;
            double[,] h = new double[10, 30];
            double[] alpha = new double[10];
            double[] beta = new double[10];
            double[] a = new double[10];
            double[] b = new double[10];
            double[] c = new double[10];
            double[,] f = new double[10, 30];
            double tay;
            double hx;
            hx=1;
            tay=1;
            alpha[0] = 0;
            beta[0] = 5;
            for (k = 0; k <= 29; k++)
            {
                h[0, k] = 5;
                h[9, k] = 15;
            }
                for (i = 0; i <= 9; i++)
                {

                    h[i, 0] = 3;
                }
            
            for (k = 1; k <= 29; k++)
            {
                for (i = 1; i < 9; i++)
                {
                    a[i] = d / (hx*hx);
                    b[i] = d / (hx * hx);
                    c[i] = ((2 * d) / (hx * hx)) + (n / tay);

                    f[i, k] = (-n / tay) * h[i, k - 1];
                    alpha[i] = (b[i]) / (c[i] - alpha[i-1] * a[i]);
                    beta[i] = (a[i] * beta[i-1]+f[i,k]) / (c[i] - alpha[i-1] * a[i]);
                    
                }
                for (i = 8; i > 0; i--)
                {
                  h[i, k] = alpha[i + 1] * h[i + 1, k] + beta[i + 1];
                }
            }
            dataGridView1.RowCount = 30;
            dataGridView1.ColumnCount = 10;
            
                for (k = 0; k <= 29; k++)

               {
                  // chart1.Series.Add(new Series("", k));
                   chart1.Series.Add("series" + k.ToString()).ChartType = SeriesChartType.Line; ;
                  
                    for (i = 0; i <= 9; i++)
                    {

                        chart1.Series[k].Points.AddXY(i, h[i, k]);
                        dataGridView1.Rows[k].Cells[i].Value = Convert.ToString(h[i, k]);
                     
                    //chart1.DataSource = dataGridView1.DataSource;
                      //  chart1.Series[1].XValueMember = dataGridView1.Rows[k];
                }

            }
               

        }

        private void chart1_Click(object sender, EventArgs e)
        {

        }
     
 }
}

[Stilet]

Примерно так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
  Dialogs, Grids, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Chart1: TChart;
    Chart1LineSeries1: TLineSeries;
    dataGridView1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
const n = 0.4;
const d = 2;
var
   h,f:array[0..9] of array[0..29] of double;
   beta,alpha,a,b,c:array[0..9] of double;
   i,k:integer;
   tay,hx:double;
begin
  dataGridView1.RowCount := 300;
  dataGridView1.ColCount := 100;
  hx:=1;tay:=1; alpha[0]:=0; beta[0]:=5;
  for k:=0 to 29 do begin h[0,k]:=5; h[9,k]:=15; end;
  for i:=0 to 9 do begin h[i,0]:=3;end;

  for k:=0 to 29 do begin
    for i:=0 to 9 do begin
      a[i]:=d/sqr(hx);
      b[i]:=a[i];
      c[i]:=((2 * d) / (hx * hx)) + (n / tay);
      f[i, k] := (-n / tay) * h[i, k - 1];
      alpha[i] := (b[i]) / (c[i] - alpha[i-1] * a[i]);
      beta[i] := (a[i] * beta[i-1]+f[i,k]) / (c[i] - alpha[i-1] * a[i]);
    end;
    for i:=8 downto 0 do h[i, k] := alpha[i + 1] * h[i + 1, k] + beta[i + 1];
  end;

    for k:=0 to 29 do begin
      with TLineSeries.Create(Chart1) do begin   Visible:=true;
        for i:=0 to 9 do begin
         AddXY(i, h[i, k]);
         dataGridView1.Cells[k,i]:=FloatToStr(h[i, k]);
        end;
      end;
    end;
end;

end.

Проект приложить не могу, так как Делфи нет.

[ogamilait]

Спасибо большое. Дале сам.

[ogamilait]

Сообщение от Stilet

Примерно так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
  Dialogs, Grids, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Chart1: TChart;
    Chart1LineSeries1: TLineSeries;
    dataGridView1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
const n = 0.4;
const d = 2;
var
   h,f:array[0..9] of array[0..29] of double;
   beta,alpha,a,b,c:array[0..9] of double;
   i,k:integer;
   tay,hx:double;
begin
  dataGridView1.RowCount := 300;
  dataGridView1.ColCount := 100;
  hx:=1;tay:=1; alpha[0]:=0; beta[0]:=5;
  for k:=0 to 29 do begin h[0,k]:=5; h[9,k]:=15; end;
  for i:=0 to 9 do begin h[i,0]:=3;end;

  for k:=0 to 29 do begin
    for i:=0 to 9 do begin
      a[i]:=d/sqr(hx);
      b[i]:=a[i];
      c[i]:=((2 * d) / (hx * hx)) + (n / tay);
      f[i, k] := (-n / tay) * h[i, k - 1];
      alpha[i] := (b[i]) / (c[i] - alpha[i-1] * a[i]);
      beta[i] := (a[i] * beta[i-1]+f[i,k]) / (c[i] - alpha[i-1] * a[i]);
    end;
    for i:=8 downto 0 do h[i, k] := alpha[i + 1] * h[i + 1, k] + beta[i + 1];
  end;

    for k:=0 to 29 do begin
      with TLineSeries.Create(Chart1) do begin   Visible:=true;
        for i:=0 to 9 do begin
         AddXY(i, h[i, k]);
         dataGridView1.Cells[k,i]:=FloatToStr(h[i, k]);
        end;
      end;
    end;
end;

end.

Проект приложить не могу, так как Делфи нет.

Проблема:
Список ошыбок:
[Error] Unit1.pas(56): Undeclared identifier: 'TLineSeries'
[Error] Unit1.pas(56): 'DO' expected but identifier 'Create' found
[Error] Unit1.pas(58): Undeclared identifier: 'AddXY'
[Error] Unit1.pas(59): Undeclared identifier: 'Cells'
[Error] Unit1.pas(69): ';' expected but '.' found
[Error] Unit1.pas(71): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
я заменил dataGridView на DrawGrid так как с первым нехочет работать
Проблемы в етому участке кода:

    for k:=0 to 29 do begin
      with TLineSeries.Create(Chart1) do begin   Visible:=true;
        for i:=0 to 9 do begin
          AddXY(i, h[i, k]);
         DrawGrid1.Cells[k,i]:=FloatToStr(h[i, k]);
        end;
      end;
    end;

[Stilet]

Undeclared identifier: 'TLineSeries'

Модули нужно подключать, которые с Чартом работают.
Создай на форме Чарт на нем Серию - модули подключатся.
Еще раз повторяю - не в Делфи писал, так что разбежность может быть.

[ogamilait]

Да я понимаю. Поетому все проверяю.
С этим розобрался, в очередной рас спасибо)
Проблема в одном только. ругаетса на:

DrawGrid1.Cells[k,i]:=FloatToStr(h[i, k]);

на Cells
[Error] Unit1.pas(59): Undeclared identifier: 'Cells'

[Stilet]

Ты StringGrid кинул на форму? Если да то назови его DrawGrid1.
Если ты на форму кинул именно DrawGrid, то убирай его и кидай StringGrid