задача на одномерный массив (delphi)

[Toxi]

помечает строчку setlength(a,n)

[d3qoot]

А мой вариант 14 поста тебе чем не устраивает?

[Hacker19_90]

Ой ёй ёй что это?

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
begin
randomize;
n:=strtoint (edit1.text);

Это одна процедура
Дальше

procedure TForm1.Button2Click(Sender: TObject);
var
i,n,k,c:integer;
begin
for i:=0 to n-1 do

Суть ясна? Вообщем так делать нельзя!
А ещё что бы конкретнее сказать
ТС прошу покажи ВЕСЬ код
То есть весь Unit

[whatever]

Toxi, на будущее: весь код выглядит так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  arr=array of integer;
var
  Form1: TForm1;
  a:arr;
  n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
randomize;
n:=strtoint (edit1.text);
randomize;
setlength(a,n);
edit2.Text:='';
for i:=0 to n-1 do
begin
a[i]:=random (20)-10;
edit2.text:=edit2.Text+'    '+inttostr(a[i]);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,k,c:integer;
begin
  if a<>nil then
    begin
      k:=0;
      for i:=0 to n-1 do
        if a[i]<0 then
          k:=i;
      a[k]:=abs(a[0]);
      edit3.text:='';
      for i:=0 to n-1 do
        edit3.text:=edit3.text+'    '+inttostr(a[i]);
    end
  else
    showmessage('Массив не создан')
end;
end.

Код рабочий, пробуй.

[Serge_Bliznykov]

в общем, Hacker19_90 и whatever абсолютно правы. но я позволю себе прокомментировать, в чём была ошибка, вдруг TC этого не понял...

Toxi,
смотри, ты задал n в описании процедуры на кнопку Button1Click. значит эта переменная у тебя локальная. Значит, после выхода из данной процедуры эта переменная уничтожается.
Потом ты попытался использовать эту переменную n в процедуре Button2Click. И, чтобы компилятор не ругался, ты был вынужден опять описать n как локальную переменную.
Разумеется, её значение НИЧЕМУ хорошему не равно - вот и получаешь обращение за пределы массива.
в решении от whatever переменная n сделана глобальной. она описана в разделе переменных модуля, поэтому эта переменная доступна из любой процедуры/функции данного модуля (и все присвоения, сделанные, например, в модуле Button1Click будут видны в Button2Click...

[Toxi]

whatever, огромное спасибо, код работет)
Serge_Bliznykov спасибо за доступное объяснение
так же спасибо всем кто тратил свое время на меня

[Toxi]

...
   if a<>nil then
...

хотелось бы по подробнее узнать что такое nil

[Krok27]

nil = NULL = 0 = и т.д.

[whatever]

Сейчас попробую объяснить, что такое nil, как сам это понимаю. В случае неточностей просьба не бросаться камнями

Как уже было сказано, nil==ноль, но я бы назвал это "пустота".
Другими словами, если под динамический массив не выделена память и с ним нельзя работать, то он nil. А если, например, a[0]=0, то уже не nil, так как память под элемент с индексом 0 уже выделена и этот элемент равен нулю.

Также справедливо утверждение, что если length(a)=0, то a=nil. В остальных случаях не nil.

В контексте данной задачи кусок кода

 if a<>nil then
    begin
      ....
    end
  else
    showmessage('Массив не создан')

выполняет роль защиты от ошибки, которая может появиться если нажать button2, не нажав перед этим button1

Надеюсь объяснил понятно и нигде не наврал.

[Toxi]

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

выполняет роль защиты от ошибки, которая может появиться если нажать button2, не нажав перед этим button1

Надеюсь объяснил понятно и нигде не наврал.

спасибо большое)) все ясно)