Выдает ошибку следующий код:

[Stilet]

Ток надо (Пиво.Update)

не получится Деньги=nil... Ладно прекращаю оффтопить...

[Polotenchik]

Так, народ, а если мне надо работать с созданным списком (sl) на протяжение всей программы? Т.е при нажатии на кнопку несколько раз будут постоянно в sl заноситься значения после чего программа будет работать с этим списком.

Т.е я сделал так:
sl прописал в глобальный вар:

var
  Form1: TForm1;
  sl: TStringList;

implementation

в OnCreate формы

procedure TForm1.FormCreate(Sender: TObject);
begin
  sl:=TStringList.Create;
end;

а в онклик кнопки уже все остальное. И если в онклик прописать ls.free; он разумеется ругается. Если убрать все отлично работает! При каждом нажатии на кнопку заносятся данные в sl.

Если я все так и оставлю, а ls.free; пропищу в Onclose это будет правильно? или это чем-то чревато и надо очищать после каждого нажатия на кнопку?

Т.е пустые банки из под пива можно выносить на утро? или надо выносить после каждой выпитой?

[Пепел Феникса]

под утро

то есть в конце программы(как я говорил, тогда когда обьект уже не нужен)

[Serge_Bliznykov]

сли я все так и оставлю, а ls.free; пропищу в Onclose это будет правильно?

да, это будет правильно. (и, кстати, это же логично - на FormCreate создаём, на закрытии формы - очищаем память).

[Polotenchik]

Новую тему создавать не буду, так как смысл почти тот же, но мне теперь надо немного изменить.
Короче в sl может содержаться две и более одинаковых цифр и мне надо что бы по нажатию на кнопку была удалена одна любая, но именно одна.

sl1.Text:=StringReplace(sl1.Text,edit.text+13#10,'',[rfReplaceAll]);

где edit.text хранит в себе цифру которую надо удалить должен удалить не все цифры, а только одну из sl. Короче надо что бы прекратил свою работу до первого совпадения цифры и удаления её. Цифры могут быть и с запятой.

Помогите пожалуйста.

[Serge_Bliznykov]

1) Вы явно путаете что такое цифра и что такое число...

2) на прошлой странице Вам были предложены варианты с циклами... В чём затруднение, изменить условие проверки?

3) если я правильно понял условие задачи, то:

  {пробегаемся по списку
     и удаляем ПЕРВОЕ совпадение
         строки в списке со строкой из edit.Text}
  i := 0;
  while (i<= (sl1.Count-1)) do
  begin
    if sl1.Strings[i]=edit.Text then
    begin
       sl1.Delete(i);
       Break;
    end;
    inc(i);
  end;

p.s. edit.text имеет тип string и sl (это TStringList) состоит из строк, потому логично сравнивать строки как есть, а не переводить в числовой формат! Хотя, если решите, что переводить нужно - то применяйте функцию StrToFloat

[Polotenchik]

Примного благодарен!