Incompatible types: 'array[1..5] of Real' and 'Extended' что делать?

Grynyuk · #1 21.05.2013, 23:10

Ошибку выбивает в выделенной строке

Код:

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 const n=5;
implementation
 
{$R *.dfm}
Type Matrix=array [1..5,1..5] of real;
      vect= array[1..5]of integer;
Var   a:matrix;
s:real;
procedure TForm1.Button1Click(Sender: TObject);
 
var sm,smax,sd:string;
  j, i,ier,imax,jmax:integer;  max:real;
    begin
     for i:= 1 to 5 do if Length(Stringgrid1.Cells[i-1,0])<>0
 <font color="Red"> then a[i]:= strtofloat(stringgrid1.Cells[i-1,0]) else a[i,j]:=0;  </font>
 
    for i:=1 to n do
begin
s:=0;
for j:=1 to n do
s:=s+strtofloat(StringGrid1.cells[j,i]);
strtofloat(stringgrid1.cells[n-j+1,j]);
 
stringgrid2.cells[i,1]:=floattostr(s);
 
      end;
    end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
var j, i:integer;begin for i:=1 to n do
  for j:=1 to  n do
  stringgrid1.cells[j,i]:=' ' ;
    for j:=1 to  5 do
   stringgrid2.cells[j-1,1]:=' ';
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
   close;
end;
 
 
end.

Bargest · #2 21.05.2013, 23:20

А какую еще ошибку можно ожидать, если пытаться присвоить массиву число?

angvelem · #3 21.05.2013, 23:20

В какой строке ошибка, в 43?

Код:

1	`else` `a[i,j]:=0;`

чему здесь равно J?

Код:

1	`a[i]:= strtofloat(stringgrid1.Cells[i-1,0])` `else` `a[i,j]:=0;`

как то определись, массив одномерный или двумерный.

Grynyuk · #4 22.05.2013, 07:53

Спасибо помогло но теперь не могу установить курсор в ячейку стринггрид1 чтобы задать массив

Код:

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 const n=5;
implementation
 
{$R *.dfm}
Type Matrix=array [1..5,1..5] of real;
      vect= array[1..5]of integer;
Var   a:matrix;
s:real;
procedure TForm1.Button1Click(Sender: TObject);
 
var sm,smax,sd:string;
  j, i,ier,imax,jmax:integer;  max:real;
    begin
     for j:=1 to 5 do  begin
   for i:= 1 to 5 do if Length(Stringgrid1.Cells[i-1,0])<>0 then a[i,1]:= strtofloat(stringgrid1.Cells[i-1,0]) else a[i,j]:=0;
     end;
    for i:=1 to n do
begin
s:=0;
for j:=1 to n do
s:=s+strtofloat(StringGrid1.cells[j,i]);
strtofloat(stringgrid1.cells[n-j+1,j]);
 
stringgrid2.cells[i,1]:=floattostr(s);
 
      end;
    end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
var j, i:integer;begin for i:=1 to n do
  for j:=1 to  n do
  stringgrid1.cells[j,i]:=' ' ;
    for j:=1 to  5 do
   stringgrid2.cells[j-1,1]:=' ';
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
   close;
end;
 
 
end.

poli-smen · #5 22.05.2013, 10:27

Цитата:

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

Спасибо помогло но теперь не могу установить курсор в ячейку стринггрид1 чтобы задать массив

Если я тебя правильно понял, то установи у стринггрида1 в свойстве Options значение goEditing в True.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Grynyuk (22.05.2013)

Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
Grynyuk (22.05.2013)