[boxep]

При выводе из массива в Listbox программа виснет... вроде код верный.
Прогр должна через Edit i Button ввести числа в массив, а другой кнопкой вывести из массива числа.

var mas:array of string;
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
setlength(mas,n+1);
mas[n]:=Edit1.Text;
n:= n+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
ListBox1.Clear;
for i:=0 to length(mas)-1 do
ListBox1.Items.Add(mas[i]);
ShowMessage('Caa?o?aii!');
end;

[lmikle]

setlength(mas,n+1);

А чему равно n??? Переменная не инициализированна. Там может оказаться ЛЮБОЕ значение, в том числе и 2 000 000 000!!! И как ты думаешь - сколько времени потребуется на выделение памяти и вообще, сможет ли программа столько выделить?

[boxep]

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

setlength(mas,n+1);

А чему равно n??? Переменная не инициализированна. Там может оказаться ЛЮБОЕ значение, в том числе и 2 000 000 000!!! И как ты думаешь - сколько времени потребуется на выделение памяти и вообще, сможет ли программа столько выделить?

А то есть нужно в начале сделать такую запись?
n:=0;

[boxep]

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

При выводе из массива в Listbox программа виснет... вроде код верный.
Прогр должна через Edit i Button ввести числа в массив, а другой кнопкой вывести из массива числа.

хм....а теперь только одно(последние)значение выводится в Listbox, а там стоит цикл что бы выводились все значения которые хранит массив, не понимаю нечего

[lmikle]

Нет. n := Length(mas);

[boxep]

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

Нет. n := Length(mas);

Всё заработало, Спасибо большое!!!