[Edvix]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

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;

MAD: теги.

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

[lmikle]

Видимо, где-то ты пытаешься конвертировать пустую строку в число с плавающей точкой. В твоем коде, представленном выше (кстати, предупреждение за неправильное оформление), таких мест 2 (стоки 55 и 64).
Переписать можно так:

Код:

1	z.rozmpensii:=z.rozmpensii+ifthen(stringgrid3.cells[5,i]='',0,strtofloat(stringgrid3.cells[5,i]));

ЗЫ. Вообще, этот блок кода нехорошо написан. 2 if'а, а разница только в выводе в соотв. лейбл.

[Edvix]

помоги мне сделать правильно,я уже бьюсь над этим 4 часа и ничего не выходит