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

[Polotenchik]

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

uses math
....

var
sl1: TStringList;
n: integer;
mymin: real;
begin
        sl1:=TStringList.Create;
//пихаем в sl данные (берутся из другого источника, но для понятия вбил вручную)
        sl1.Add('5');
        sl1.Add('3');
        sl1.Add('НО');
        sl1.Add('4');
        sl1.Add('НО');
        sl1.Add('12');

//пробегаемся по списку и удаляем все записи с НО, что бы остались только цифры
        for n:=0 to sl1.Count-1 do begin
          if sl1.Strings[n]='НО' then
            sl1.Delete(n);
        end;

//присваиваем в переменную mymin первое значение.

        mymin:=StrToFloat(sl1.Strings[0]);

// пробегаемся по списку вновь, только теперь начиная с 1. Тут у нас mymin проверяет саму себя и с помощью min остается минимальное значение.

        for n:=1 to sl1.Count-1 do
        mymin:=Min(mymin,StrToFloat(sl1.Strings[n]));

//Не знаю точно нужно или нет?! В каких случаях это надо писать?

        sl1.Free;

// смотрим что получилось

        label1.caption:=FloatToStr(mymin);

Все это загнал в событие онклик копки, жму на кнопку и вижу эту ошибку:

http://itrash.ru/idb/cfb0fcb8ffa5759...209/o23.07.png

Выручайте плиз.

[HellMercenaries]

Обращаешься к елементу который уже стёр Delitom.
Замени For на While

[Evgeniy26]

while sl1.IndexOf('НО') > -1 do
  sl1.Delete(sl1.IndexOf('НО'));

while sl1.Find('НО', n) do
  sl1.Delete(n);

[Serge_Bliznykov]

Evgeniy26 +1
это более красиво и эффективно будет в данном случае!


хотя, в принципе, когда нужно удалить строки, можно пользоваться и циклом FOR
надо только ОБЯЗАТЕЛЬНО идти снизу вверх:

//пробегаемся по списку и удаляем все записи с НО, что бы остались только цифры
        for n:=sl1.Count-1 downto 0  do begin
          if sl1.Strings[n]='НО' then
            sl1.Delete(n);
        end;

p.s. обратите внимание, что данный код я привёл в качестве образца. в данном случае лучше использовать метод поиска и удаления через while, предложенный Evgeniy26!!!

[Stilet]

Господа, а можно я ваш код уложу в одну строчку?

sl1.Text:=StringReplace(sl1.Text,'НО'#13#10,'',[rfReplaceAll]);

P.S. Может тоже на плюcик нарвусь

[Tirendus]

//Не знаю точно нужно или нет?! В каких случаях это надо писать?

sl1.Free;

убирает выделение оперативной памяти на этот процесс, писать надо

From Stilet: Не процесс а обьект (экземпляр класса)

[Polotenchik]

Всем большое спасибо.
Сразу воспользовался методом:

sl1.Text:=StringReplace(sl1.Text,'НО'#13#10,'',[rfReplaceAll]);

P.S. Может тоже на плюcик нарвусь

Безусловно

убирает выделение оперативной памяти на этот процесс, писать надо

Я так понимаю Free надо писать везде где что-то создается методом Create?!
типа:

sl1:=TStringList.Create;

Правда не совсем могу понять зачем? Что значит убирает выделение оперативной памяти на этот процесс?

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

для всех обьектов созданных динамически(искл есть, но их мало)
после использования то есть тогда когда они уже не нужны нужно освобождать память(free)

искл: компоненты форм, которые уничтожаются вместе с ней(форма при своем уничтожении, уничтожает и все компоненты, родителем которых является сама) и тд

[Stilet]

Правда не совсем могу понять зачем?

А представь что ты заказал на вечеринку 200 банок пива (Пиво.Create). Вечеринка удалась и вы с башкой-от-пяток пошли в гости к Морфею приложившись ухом к подушке... На утро что мы видим? правильно - кучугур банок, предки поубивают, значит чоб не попасть под домашний арест в своей же комнате нужно мусор убрать (Пиво.Free)

[Polotenchik]

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

А представь что ты заказал на вечеринку 200 банок пива (Пиво.Create). Вечеринка удалась и вы с башкой-от-пяток пошли в гости к Морфею приложившись ухом к подушке... На утро что мы видим? правильно - кучугур банок, предки поубивают, значит чоб не попасть под домашний арест в своей же комнате нужно мусор убрать (Пиво.Free)

Реальнее! Все ясно, как божий день
Ток надо (Пиво.Update) =)