ошибка '' is not a valid floating point value

[Edvix]

Type osoba=record
pib: string[15];
stat: string[1];
vik, rik, stazh ,rist: integer;
date:string[10];
rozmpensii: real;
dnr:string[10];

end;
var f:file of osoba; //файл записів
z: osoba; //запис
namefile: string; //ім'я файла
nbtn2: integer;


procedure TForm1.Button9Click(Sender: TObject);
var i,rik_1: integer;
qwer,qwer1, q: real;
begin
rik_1:=StrToInt(Edit7.text);
i:=0;
reset(f); //Відкрити файл
seek(f,0); //Перевести покажчик на початок файла
//Підпис стовпців компонента StringGrid3
with StringGrid3 do
begin
cells[0,0]:='Прізвище';
cells[1,0]:='Стать';
cells[2,0]:='Дата народження';
cells[3,0]:='Рік виходу на пенсію';
cells[4,0]:='Трудовий стаж';
cells[5,0]:='Розмір пенсії';
end;
StringGrid3.Show; //Компоненти видимі
//Пошук даних за критерієм і виведення результату на екран

while not eof (f) do
begin
read(f,z);
with z do
if rik_1=z.rik then
begin
i:=i+1;
StringGrid3.Cells[0,i]:=z.pib;
StringGrid3.Cells[1,i]:=z.stat;
StringGrid3.Cells[2,i]:=z.date;
StringGrid3.Cells[3,i]:=IntToStr(z.rik);
StringGrid3.Cells[4,i]:=IntToStr(z.stazh);
StringGrid3.Cells[5,i]:=FloatToStr(z.rozmpensii) ;
end;
if z.stat='Ч' then
begin
for i:=1 to (stringGrid3.rowcount-1) do
begin
z.rozmpensii:=z.rozmpensii+strtofloat(stringgrid3. cells[5,i]);
end;
qwer:=z.rozmpensii/( stringGrid3.rowcount-1);
Label17.Caption:='Середній розмір пенсії чоловіків складає: '+floattostr(qwer);
end ;
if z.stat='Ж' then
begin
for i:=1 to (stringGrid3.rowcount-1) do
begin
z.rozmpensii:=z.rozmpensii+strtofloat(stringgrid3. cells[5,i]);
end;
qwer1:=z.rozmpensii/( stringGrid3.rowcount-1);
Label18.Caption:='Середній розмір пенсії жінок складає: '+floattostr(qwer1);
end;

CloseFile(f);
Button10.Show;
end;

end;

Программа компилируется,но выскакивает такое сообщение,в чем ошибка?

[Stilet]

strtofloat(stringgrid3. cells[5,i])

Замени на

strtofloatDEF(stringgrid3. cells[5,i],0);

Тогда, если в ячейке будет не число программа подставит ноль.
Или используй функцию TryStrTofloat для проверки возможности преобразования.
Ошибка твоя означает что в ячейке грида не число а пустая строка.

[Edvix]

Попробовал,не выходит,посмотрите пожалуйста в архиве программу.Запрос 3.Уже бьюсь над этим ,но ничего не выходит

Посмотрите сообщение выше,не игнорируйте

[Stilet]

Ты не везде заменил на указанную мной функцию.
Скажи честно - эту программу ты скоммуниздил? Не верю что ты ее писал сам.

[Edvix]

Я не такой безнадежный,как кажусь,то что работают нормально 4 других вкладки ,то это я сам
Но тот запрос вообще не понял.Скажи плиз ,что поменять ,чтоб искало среднее арифметическое

[Stilet]

Среднее арифметическое чего? Пенсии?
Ты можешь подробнее рассказывать что тебе нужно сделать?
мне же сложно понять что ты хочешь. Из того что я понял вот:

procedure TForm1.Button9Click(Sender: TObject);
var i,rik_1,iman,iwoman: integer;
avgman,avgwoman q: real;
begin 
avgman:=0; avgwoman:=0;  iman:=0; iwoman:=0;

rik_1:=StrToInt(Edit7.text);
i:=0;
reset(f); //Відкрити файл
seek(f,0); //Перевести покажчик на початок файла
//Підпис стовпців компонента StringGrid3
with StringGrid3 do
begin
RowCount:=2;
cells[0,0]:='Прізвище';
cells[1,0]:='Стать';
cells[2,0]:='Дата народження';
cells[3,0]:='Рік виходу на пенсію';
cells[4,0]:='Трудовий стаж';
cells[5,0]:='Розмір пенсії';
end;
StringGrid3.Show; //Компоненти видимі
//Пошук даних за критерієм і виведення результату на екран

while not eof (f) do begin
 read(f,z);
if rik_1<>z.rik then Continue;

with z,StringGrid3 do begin
 RowCount:=RowCount+1;
 Cells[0,RowCount-1]:=pib;
 Cells[1,RowCount-1]:=stat;
 Cells[2,RowCount-1]:=date;
 Cells[3,RowCount-1]:=IntToStr(rik);
 Cells[4,RowCount-1]:=IntToStr(stazh);
 Cells[5,RowCount-1]:=FloatToStr(rozmpensii) ;
 if stat='Ч' then begin avgman:=avgman+rozmpensii;inc(iman);end else
  if stat='Ж' then begin avgwoman:=avgwoman+rozmpensii;inc(iwoman);end else
end;

Label17.Caption:='Середній розмір пенсії чоловіків складає: '+floattostr(avgman/iman);
Label18.Caption:='Середній розмір пенсії жінок складає: '+floattostr(avgwoman/iwoman);
end;

Угадал я?

[Edvix]

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

Среднее арифметическое чего? Пенсии?
Ты можешь подробнее рассказывать что тебе нужно сделать?
мне же сложно понять что ты хочешь. Из того что я понял вот:

procedure TForm1.Button9Click(Sender: TObject);
var i,rik_1,iman,iwoman: integer;
avgman,avgwoman q: real;
begin 
avgman:=0; avgwoman:=0;  iman:=0; iwoman:=0;

rik_1:=StrToInt(Edit7.text);
i:=0;
reset(f); //Відкрити файл
seek(f,0); //Перевести покажчик на початок файла
//Підпис стовпців компонента StringGrid3
with StringGrid3 do
begin
RowCount:=2;
cells[0,0]:='Прізвище';
cells[1,0]:='Стать';
cells[2,0]:='Дата народження';
cells[3,0]:='Рік виходу на пенсію';
cells[4,0]:='Трудовий стаж';
cells[5,0]:='Розмір пенсії';
end;
StringGrid3.Show; //Компоненти видимі
//Пошук даних за критерієм і виведення результату на екран

while not eof (f) do begin
 read(f,z);
if rik_1<>z.rik then Continue;

with z,StringGrid3 do begin
 RowCount:=RowCount+1;
 Cells[0,RowCount-1]:=pib;
 Cells[1,RowCount-1]:=stat;
 Cells[2,RowCount-1]:=date;
 Cells[3,RowCount-1]:=IntToStr(rik);
 Cells[4,RowCount-1]:=IntToStr(stazh);
 Cells[5,RowCount-1]:=FloatToStr(rozmpensii) ;
 if stat='Ч' then begin avgman:=avgman+rozmpensii;inc(iman);end else
  if stat='Ж' then begin avgwoman:=avgwoman+rozmpensii;inc(iwoman);end else
end;

Label17.Caption:='Середній розмір пенсії чоловіків складає: '+floattostr(avgman/iman);
Label18.Caption:='Середній розмір пенсії жінок складає: '+floattostr(avgwoman/iwoman);
end;

Угадал я?

похоже,что угадал,но на строке вывода (Label17.Caption:='Середній розмір пенсії чоловіків складає: '+floattostr(avgman/iman);
Label18.Caption:='Середній розмір пенсії жінок складає: '+floattostr(avgwoman/iwoman)операция останавливается

[Аватар]

операция останавливается

Деление на 0 что-ли? Смотри iwoman где и как счетчик формируется

[Edvix]

Сообщение от Аватар

Деление на 0 что-ли? Смотри iwoman где и как счетчик формируется

inc считает кол-во строк,поэтому не на 0

"Среднее арифметическое чего? Пенсии?
Ты можешь подробнее рассказывать что тебе нужно сделать?
мне же сложно понять что ты хочешь. "
Задача- средняя пенсия мужчин и женщин за выбранный год

[Аватар]

поэтому не на 0

Да я не против, что считает. А в отладке проверить если там stat='Ж' и

 if stat='Ч' then begin avgman:=avgman+rozmpensii;inc(iman);end else
  if stat='Ж' then begin avgwoman:=avgwoman+rozmpensii;inc(iwoman);end else
end;

сильно не нравится