[poli-smen]

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

Имеется массив beforelbl
Длина массива 0.

Код:

showmessage('High(beforelbl)='+inttostr(High(beforelbl)));
 for i := 0 to High(beforelbl) do
begin
  showmessage('for i := 0 to High(beforelbl) do');
end

showmessage до цикла выдаёт значение "-1", а второй showmessage всё равно показывает, то есть несмотря на то, что 0<-1 цикл всё равно выполняется... в чём дело??? Я же не ставил downto -1

У меня тело цикла ни разу не срабатывает.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  beforelbl: array of Integer;
  i: Integer;
begin
  showmessage('High(beforelbl)=' + inttostr(High(beforelbl)));
  for i := 0 to High(beforelbl) do
  begin
    showmessage('for i := 0 to High(beforelbl) do');
  end
end;