проблемы в коде в делфи

[ilev]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button2: TButton;
Label7: TLabel;
Button3: TButton;
Label8: TLabel;
Label9: TLabel;
Button4: TButton;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
bagaj=record
kol:integer;
ves:real;
end;
var
Form1: TForm1;
bg:array[1..3] of bagaj;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
srves1,srves2,srves3,srvesvseh,s:re al;
begin
for i:=1 to 3 do
begin
bg[i].kol:=strtoint(stringgrid1.Cells[0,i-1]);
bg[i].ves:=strtofloat(stringgrid1.Cells[1,i-1]);
end;
srves3:=(bg[3].kol*bg[3].ves)/bg[3].kol;
srves1:=(bg[1].kol*bg[1].ves)/bg[1].kol;
srves2:=(bg[2].kol*bg[2].ves)/bg[2].kol;
s:=0;
for i:=1 to 3 do
s:=s+bg[i].ves;
srvesvseh:=s/3;
if srves3/srvesvseh<=0.3 then
label6.Caption:=label3.Caption;
if srves1/srvesvseh<=0.3 then
label6.Caption:=label2.Caption;
if srves2/srvesvseh<=0.3 then
label6.Caption:=label1.Caption;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,s:integer;
begin
for i:=1 to 3 do
begin
bg[i].kol:=strtoint(stringgrid1.Cells[0,i-1]);
bg[i].ves:=strtofloat(stringgrid1.Cells[1,i-1]);
end;
s:=0;
for i:=1 to 3 do
if bg[i].kol>2 then
s:=bg[i].kol+1;
label8.Caption:=inttostr(s);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i,s,sum:integer;
srkol:real;
begin
for i:=1 to 3 do
begin
bg[i].kol:=strtoint(stringgrid1.Cells[0,i-1]);
bg[i].ves:=strtofloat(stringgrid1.Cells[1,i-1]);
end;
sum:=0;
for i:=1 to 3 do
sum:=sum+bg[i].kol;
srkol:=sum/3;
for i:=1 to 3 do
if bg[i].kol>srkol then
s:=bg[i].kol+1;
label9.Caption:=inttostr(s);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 3 do
begin
bg[i].kol:=strtoint(stringgrid1.Cells[0,i-1]);
bg[i].ves:=strtofloat(stringgrid1.Cells[1,i-1]);
end;
if (bg[1].kol=1) and (bg[1].ves<30) then
label10.Caption:=label1.Caption;
if (bg[2].kol=1) and (bg[2].ves<30) then
label10.Caption:=label2.Caption;
if (bg[3].kol=1) and (bg[3].ves<30) then
label10.Caption:=label3.Caption;
end;

end.

[ByAlex]

Ну и где ошибка, в какой строке?

[SL1M_DOGG]

srves1,srves2,srves3,srvesvseh,s:re al;

разве что вот эта.

[ilev]

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

srves1,srves2,srves3,srvesvseh,s:re al;

разве что вот эта.

нееее) там все в порядке, просто так скопировалось)

[ByAlex]

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

srves1,srves2,srves3,srvesvseh,s:re al;

разве что вот эта.

Во во, судя по коду так!

[ilev]

вот именно не выделяет ошибок, и программа не работает, или логическая где то, или не правильно что нибудь с переменой bagaj, может еще что нибудь...........я вот и не могу найти что не так

[ByAlex]

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

вот именно не выделяет ошибок, и программа не работает, или логическая где то, или не правильно что нибудь с переменой bagaj, может еще что нибудь...........я вот и не могу найти что не так

Дак ты скинь проект сюда!

[ilev]

щас попробую

[SL1M_DOGG]

или не правильно что нибудь с переменой bagaj,

тип вроде как объявлен правильно

[ByAlex]

У тебя ошибки при обращении к StringGrid, индексы здесь не как в матрицах, а наоборот!