Копирование в Delphi

[Goshan82]

Здравствуйте уважаемые!Помогите с исправлением строки,написанной моими кривыми руками.Нужно,чтобы из Edit1 строка копировалась через динамический массив в ListBox1 и обратно также через массив.С первым справился,а вот обратно ну никак.Вот на что хватило моей извилины

Edit1.Text:=FloatToStr(Arr[High(Arr)]-(ListBox1.ItemIndex));

Заранее благодарен!

[Serge_Bliznykov]

ОМГ!
что это за абстракционизм?!!!

Что изначально находится в Edit1 ?!
Зачем динамический массив?
Каким образом Вы справились (ну или думаете, что справились!) с первым заданием (покажите код)?

[Goshan82]

В Edit1 изначально и всегда только цифры(калькулятор).На мой вопрос зачем тут массив мне ответили:"В целях обучения."Не знаю что надо было ответить,я промолчал

procedure TForm1.SpeedButton17Click(Sender: TObject);
 Var
  Arr: Array of real;
 begin
  if Edit1.Text='' then
  begin
  ShowMessage('Поле ввода пусто!');
  Exit;
  end
  else
 begin
  Try
   StrToFloat(Edit1.Text);
   ListBox1.Items.Insert(0, Edit1.Text);
   If Length(Arr) = 0 then
   SetLength(Arr, 1)
  else
   SetLength(Arr, Length(Arr) + 1);
   Arr[Length(Arr) - 1] := StrToFloat(Edit1.Text);
   {if Arr <> nil then
   ListBox2.Items.Insert(0, FloatToStr(Arr[High(Arr)]));}
  Except
   on EConvertError do
   MessageDlg('Вы ввели ошибочное число, повторите ввод', mtWarning, [mbOK], 0);
  end;
 end;
end;

ListBox2 вводили с товарищем как раз для проверки есть ли копируемые числа в самом массиве.По условию его нет.поэтому убрав его с формы,просто на всякий оставил строки в фигурных скобах.
Перечитал и понял,что не совсем правильно объяснил,простите.Есть Edit1,из которого поочерёдно в ListBox1 скопировано несколько чисел через дин.массив,и там и там они сохраняются,а в случае пожелания пользователя,выделенный им результат в ListBox1 должен скопироваться из массива в Edit,а в ListBox удалиться.

[Serge_Bliznykov]

вынесите описание динамического массива Arr в глобальные переменные (ну или в свойства TForm1)
иначе, этот массив при каждом нажатии на кнопку SpeedButton17 создаётся, в него заносится одно число и на выходе из процедуры - он уничтожается (кстати, не исключено, что при этом возникают ещё и утечки памяти).