Записать числа с помощью эдита в массив

@АндрейЗ · Регистрация: 14.10.2014

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

вот код. Нужно записать числа с помощью эдита в массив(например 3 числа), затем считать их в мемо.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[1..10] of integer;
  i: integer;
  s: string;
begin
  for i:=1 to 10 do
  s:=Edit1.Text;
  if s<>0 then a[i]:=StrToInt(s);
  i:=i+1;
  memo1.Lines.Add(IntToStr(a[i]));
end;

Ошибка в строчке

Delphi

1	if s<>0 then a[i]:=StrToInt(s);

знаю что преобразование типов неверное, дело в том что s<>0, здесь 0 я понимаю что есть что в стоке эдита или нет или как то подругому нужно. Подскажите как сделать.

@cfbogd · 16.11.2016, 20:07

АндрейЗ,

Delphi

var
  Form1: TForm1;
      i:integer=1;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..10] of integer;
begin
a[i]:=strtoint(edit1.text);
inc(i); //i:=i+1;
edit1.Clear;
end;

Добавлено через 8 минут
а сейчас я вам "прочитаю" ваш код:

Кликните здесь для просмотра всего текста

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[1..10] of integer;
  i: integer;
  s: string;
begin
  for i:=1 to 10 do
  s:=Edit1.Text; //s = edit1.text, 
//и этот код выполняется 10 раз, begin и end нету,
//поэтому выполняется только первая строка.
  if s<>0 then a[i]:=StrToInt(s); //помним, что s=edit1.text 
//а так как цикл закончился, то i:=11;
//
//кстати, s<>0, так не правильно, а вот так правильно length(s)>0 - длина s больше нуля.
//
  i:=i+1;
  //теперь i:=12;
  memo1.Lines.Add(IntToStr(a[i]));
//добавить в мемо 12 элемент (а его нету)
end;

@Puporev · 16.11.2016, 20:13

Delphi

1	if s<>'' then

	16.11.2016, 20:13