Delphi.Программа выдает ошибку "is not a valid integer value

[MariaD]

В программе нужно подсчитать количество смены знака на противоположный.Дан массив чисел.В институте все работало, а дома нет.

Вводила данные в Edit "3", в мемо 2,-3,0 .каждое число с новой строчки

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, System.ComponentModel;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Memo1: TMemo;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
Form1.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
i,k,n:integer;
a:array[0..10] of integer;
begin
k:=0;
n:=StrToInt(Edit1.Text);
For i:=1 to n+1 do
a[i]:=StrToInt(memo1.Lines[i]);
i:=1;
While a[i]<>0 do begin
If a[i]*a[i+1]<0 then inc(k);
inc(i); end;
Label1.Caption := ('Знак меняется '+ FloatToStr(k) + ' раз');
end;

end.

[Mad_Cat]

Вводила данные в Edit "3", в мемо 2,-3,0

n=3

в мемо я так понимаю

2
-3
0

ошибки:

For i:=0 to n-1 do
a[i]:=StrToInt(memo1.Lines[i]);
i:=0;

[Mixim]

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

в мемо я так понимаю

ошибки:

For i:=0 to n-1 do
a[i]:=StrToInt(memo1.Lines[i]);
i:=0;

Не забывай, что это Delphi, т.е. Object Pascal, а там индексация с 1, а не с 0, как в языках семейства Си(если ничего не путаю). Давно, очень давно работал с OP, но возьму на себя смелость предположить, что вся проблема в том, что после каждой строки в Memo идет символ перехода на новую строку (в Си это '\n'), вот и не работает. Хотя, конечно, очень странно, что в институте работало, а дома нет
Автору же предлагаю запустить код в режиме отладки, в Watch добавить "memo1.Lines[i]", посмотреть чему оно равно, а затем скопировать его в отдельную строковую переменную и попробовать преобразовать
Кстати, ошибка: "is not a valid integer value" означает: "не правильное целочисленное значение", т.е. "не могу преобразовать".

[Serge_Bliznykov]

Не забывай, что это Delphi, т.е. Object Pascal, а там индексация с 1, а не с 0, как в языках семейства Си(если ничего не путаю).

Путаете! и малого того, что сами заблуждаетесь, ещё и других пытаетесь в заблуждение ввести..

В Delphi (ну или в Object Pascal) все (ВСЕ) динамические структуры, все компоненты - обращение к первому элементу - это НУЛЕВОЙ индекс.
Единственное исключение, т.с. "наследие мрачных времён" - это обращение к символам строки.
Так исторически сложилось, что сначала строка (тип String) была типом = array[0..255] of char, где 0 символ строки нёс служебную нагрузку - там была длина строки. Поэтому первый символ строки индексировался через 1 (едииницу). Там и повелось. И позже, когда переменная типа String стала указателем на структуру, всё равно, S[1] - это первый символ строки.

НО!
Если нам нужна первая строчка из Мемо, то это, разумеется, Memo.Lines[0]

[s-andriano]

В дополнение к предыдущему сообщению:
тип string - вообще очень интересная штука, в частности, для него несправедливо утверждение "переменная типа String стала указателем на структуру".
Она стала не указателем, а неким псевдоуказателем, т.к. структура начинается на самом деле не там, куда показывает указатель, а на несколько байтов раньше.
Но это уже чисто специфика string в Delphi.

[Stilet]

Еще не нужно забывать что StrToInt само по себе генерирует ошибку, так что его нужно менять на TryStrToInt() или StrToIntDef().

[Serge_Bliznykov]

s-andriano, хотя это к данной теме не относится, но я с вашим замечанием полностью согласен, так оно и есть.

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

Еще не нужно забывать что StrToInt само по себе генерирует ошибку, так что его нужно менять на TryStrToInt() или StrToIntDef().

Ну, для начала нужно задавать правильные индексы, чтобы брать правильные строчки из Memo, потом позаботится о том, чтобы n (число указанное в Edit1) было корректным, а вот потом уже Ваш совет будет в точку!

Кстати, брать количество чисел из Edit1 - это неудобно и ненадёжно. Гораздо лучше брать числа из Memo, пока строчки не кончились и пока последнее число не равно нулю! И вот тогда, число прочитанных чисел и даст правильное n

[Stilet]

Гораздо лучше брать числа из Memo, пока строчки не кончились

Верно.

With Memo1 do  For i:=1 to Count-1 do  a[i]:=StrToIntDef(Lines[i],0);

И порядок.

[Serge_Bliznykov]

Виталий, и Вы туда же?!!!

With Memo1 do  For i:=0 to Count-1 do  a[i]:=StrToIntDef(Lines[i],0);

[Stilet]

и Вы туда же?

Привычка
Бывает...