Ошибка: " is not valid integer value

@WonFor · Регистрация: 19.05.2016

Студворк — интернет-сервис помощи студентам

Добрый день)
Подскажите пожалуйста, из-за чего в этом коде возникает такая ошибка. Долго с ней парюсь, может вы поймете?

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
const n = 9;
var
     A: array [1..n] of real;
     i: integer;
     max: real;
begin
for i := 1 to n do
  A[i] := StrToFloat(StringGrid1.Cells[1,i]);
  max := A[1];
for i := 1 to n do
 begin
   if (A[i] > max) then
   begin
     max := A[i];
   end;
 end;
i:=2;
while i<=n do
  begin
    A[i] := max;
    i:=i+2;
  end;
for i := 1 to n do
  begin
     StringGrid2.Cells[1,i] := FloatToStr(A[i]);
  end;
end;

@FIL · 16.06.2016, 23:11

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

еще раз

ТС поменял местами индексы, но чудо не произошло.

Добавлено через 37 секунд
WonFor, ты как StringGrid2 пытаешься заполнить? нажимая на кнопку2?

@WonFor · 17.06.2016, 00:25 **[ТС]**

qwertehok, эм, у меня 1 строка-j и 9 столбцов-i, т.е. StringGrid2.Cells[i,j]

Добавлено через 2 минуты
FIL, Добрый) Нет, я через кнопку 1 хочу заполнить StringGrid2.
т.е. я ввожу элементы массива в StringGrid1, нажимаю кнопку и оно должно вывестись в StringGrid2.

@WonFor · 17.06.2016, 00:31 **[ТС]**

FIL, Это вот код на данный момент. Блин, что-то по изменял, запустил, оно выдало ту ошибку, с которой боролся. " is not valid floating point value. Откатил через Undo. А оно все равно выдает. Как так...

Delphi
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
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure StringGrid2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
const n = 9;
var
     A: array [1..n] of real;
     i: integer;
     max: real;
begin
for i := 1 to n do
  A[i] := StrToFloat(StringGrid1.Cells[i,1]);
  max := A[1];
for i := 1 to n do
 begin
   if (A[i] > max) then
   begin
     max := A[i];
   end;
 end;
i:=2;
while i<=n do
  begin
    A[i] := max;
    i:=i+2;
  end;
for i := 1 to n do
  begin
     StringGrid2.Cells[i,1] := FloatToStr(A[i]);
  end;
end;

И текущая рамка проги

@WonFor · 17.06.2016, 01:02 **[ТС]**

FIL, все, не надо. Я переписал код заново в новом проекте.

Добавлено через 1 минуту
Если кому-то надо, то вот код, который заработал:

Delphi
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
unit Unit5;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const n = 9;
var
    A: array [1..n] of real;
    i: integer;
    max: real;
begin
for i := 1 to n do
  A[i] := StrToFloat(StringGrid1.Cells[i-1,0]);
  max := A[1];
for i := 1 to n do
  if (A[i] > max) then
   begin
     max :=A[i];
   end;
i := 2;
while i<n do
  begin
    A[i] := max;
    i:=i+2;
  end;
for i := 1 to n do
  StringGrid2.Cells[i-1,0] := FloatToStr(A[i]);
 
end;
 
end.

В проге находится самый наибольший элемент массива и ставиться на парных местах.

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@WonFor 2 / 2 / 0 Регистрация: 19.05.2016 Сообщений: 86
	17.06.2016, 00:25 [ТС]
	qwertehok, эм, у меня 1 строка-j и 9 столбцов-i, т.е. StringGrid2.Cells[i,j] Добавлено через 2 минуты FIL, Добрый) Нет, я через кнопку 1 хочу заполнить StringGrid2. т.е. я ввожу элементы массива в StringGrid1, нажимаю кнопку и оно должно вывестись в StringGrid2. 0