Записи в Delphi.

[dima-intro]

Надо найти ср. арифметическое в массиве записей.
вот код, но выдается ошибка.

procedure SredAr(A:TArr; sum:integer; cnt:integer;SG1,SG2:TStringGrid);
var
sr: real;
i: integer;
begin
for i:= 1 to cnt do
if Length(SG1.Cells[i-1, 0])<>0
then A[i] := StrToInt(SG2.Cells[i-1,0])
else A[i] := 0;
sum := 0;
for i :=1 to cnt do
sum := sum + A[i];
sr := sum/cnt;
end;

объясните пожалуйста что не так...
очень надо...

хоть на мыслю натолкните, товарищи

[vovk]

ЧТО за ошибка? TArr это динамический массив? Где задаётся длинна. Почему проверяем значение в 0 колнке SG1, а присваиваем значения из SG2?
Но сначала 1 вопрос, ЧТО за ошибка?

[dima-intro]

else A[i] := 0; - тут ошибка

[Error] UnitRecDop.pas(174): Incompatible types: 'TRecStud' and 'Integer'

[vovk]

дак TArr это массив записей? а чегож вы заместо записей ему число пытаетесь подсунуть?))

[dima-intro]

тоесть поиск ср. арифметического как для простого массива не подходит для записей...

а как мне это исправить?

[vovk]

по конкретному числовому полю в записи конечно можно.
Но записывать число то можно только в числовое поле записи.
как пример с потолка

const cnt=10;
type
 TRecStud= record
  Name : String[10];
   Fam        : string[10] ;
  ciferka        : Integer
 end;
Type Tarr = array [1..cnt] of TRecStud;
.......
....
procedure SredAr(A:TArr; sum:integer; cnt:integer;SG1,SG2:TStringGrid);
var
sr: real;
i: integer;
begin
for i:= 1 to cnt do
if Length(SG1.Cells[i-1, 0])<>0
then A[i].ciferka := StrToInt(SG2.Cells[i-1,0])
else A[i].ciferka := 0;
sum := 0;
for i :=1 to cnt do
sum := sum + A[i].ciferka;
sr := sum/cnt;
end;

[dima-intro]

Спасибо.)
вроде не ругается теперь.
Попробую...