Вывод массива в строку через пробел в Memo

@focusherad · Регистрация: 12.10.2016

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

Подскажите пожалуйста как исправить, чтоб выводило в Memo массив из 10 чисел.
Здесь выводит бесконечно и все в столбик:

Delphi

procedure TForm3.Memo1Change(Sender: TObject);
var a: array [0..9] of integer;
    i: integer;
    str: string;
begin
  randomize;
  for i:=0 to 9 do
   begin
     a[i]:=random(10);
     str:='';
     str:=str+inttostr(a[i]);
   end;
    Memo1.Lines.Add(str);
end;
end.

@qwertehok · 25.11.2017, 21:50

ты же строку обнуляешь в цикле FOR, поэтому предыдущие значения не сохраняются

@Joey · 25.11.2017, 21:54

focusherad,

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

Memo1.Lines.Add(str);

это тоже изменение Мемо, и значит оно тоже вызывает событие Memo1Change, поэтому и уходит в бесконечность

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

str:='';

Это нужно делать до цикла либо при объявлении переменной str: string = '';

Для того, чтобы не зависало, Вам нужен логический флаг, указывающий программе, кто меняет Мемо: пользователь или Ваш код. Объявляете глобальную переменную, например, memchange: boolean = false;
и затем код:

Delphi

procedure TForm3.Memo1Change(Sender: TObject);
var a: array [0..9] of integer;
    i: integer;
    str: string = '';
begin
  if memchange then exit;
  memchange := true;
  randomize;
  for i:=0 to 9 do
   begin
     a[i]:=random(10);
     str:=str+inttostr(a[i]);
   end;
    Memo1.Lines.Add(str);
    memchange := false;
end;

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,133 Записей в блоге: 3
	25.11.2017, 21:50	2
	ты же строку обнуляешь в цикле FOR, поэтому предыдущие значения не сохраняются 1

	25.11.2017, 21:54