StringGrid

[W0LF]

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

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

[STALKER_777]

Помогите пожалуйста с одномерным массивом(найти максимальный элемент массива В та его порядковый номер, если К<50)
Выбивает (is not a valid floating point value)

unit Unit5;

interface

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

type
TForm5 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
FileSave: TMenuItem;
FileExit: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
PopupMenu1: TPopupMenu;
N4: TMenuItem;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Bevel1: TBevel;
Label4: TLabel;
Label5: TLabel;
StringGrid1: TStringGrid;
Button3: TButton;
Label6: TLabel;
procedure FileExitClick(Sender: TObject);
procedure helpabotclick(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
// procedure Label4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form5: TForm5;
b:array of real;
k:word;
implementation

{$R *.dfm}

procedure TForm5.FileExitClick(Sender: TObject);
begin
close
end;

procedure TForm5.helpabotclick(Sender: TObject);
begin
MessageDlg('Delphi '#13#10'(C) 2010 Стас Версія 7.00', mtInformation,[mbOk],0);
end;


procedure TForm5.Edit1Change(Sender: TObject);
var i:word;
begin
if edit1.text = ''then exit;
k:=strtoint (EDIT1.Text);
StringGrid1.ColCount:=k;
for i:=0 to k-1 do StringGrid1.cells[i,0]:=inttostr(i);
Setlength(b,k);
end;
procedure TForm5.Button3Click(Sender: TObject);
var i:word;
max:real;
j:integer;
begin
max:=b[0];j:=0;
for i:=1 to k-1 do begin
b[i]:=StrToFloat(StringGrid1.Cells[i,1]);
if b[i]>max then begin
max:=b[i];
j:=i;
end;
end;
Label6.Caption:= FloatToStr(max);
end;
end.

[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;
Label4: TLabel;
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;
m,n:word;
b:integer;

implementation
{$R *.dfm}

procedure TForm6.Edit1Change(Sender: TObject);
var i:integer;
begin
n:=strToInt(Edit1.Text);
stringgrid1.ColCount:=n+1;
for i:=0 to n do
stringGrid1.Cells[i,0]:=inttostr(i);

end;

procedure TForm6.Edit2Change(Sender: TObject);
var j:integer;
begin
m:=strtoint(Edit2.Text);
stringgrid1.RowCount:=m+1;
for j:=0 to m do
stringgrid1.Cells[0,j]:=inttostr(j);
end;

procedure TForm6.Button1Click(Sender: TObject);
var i,j,sum:integer;

begin
sum:=0;
i:=0;
for j:=1 to 2 do begin
sum:=sum+b;
end;

label4.Caption:=sum+b;(ОШИБКА incompatible types:'String' and Integer)
end;

end.