Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Вниз

Из-за чего может выскакивать ошибка?   Найти похожие ветки 

← →
Digest   (2006-12-29 04:40) [0]

Привет мастера!
Подскажите, а из-за чего может выскакивать такая ошибка?
http://img216.imageshack.us/img216/1725/delphidn0.jpg
Вроде появляется на ровном месте.

---

← →
4ert   (2006-12-29 04:41) [1]

а можно взглянуть на это ровное место?

---

← →
Digest   (2006-12-29 05:04) [2]

  if not Connected then
   begin
     with TStringList.Create do
     try
      LoadFromFile("badproxy.txt");
      Add(proxy+":"+proxyport);
      SaveToFile("badproxy.txt");
      Free;

      LoadFromFile("proxy.txt");
      Delete(proxycount);
      SaveToFile("proxy.txt");
      Free;
     finally
     end;
    inc(proxycount);
   end;

---

← →
4ert   (2006-12-29 05:22) [3]

Странно, с виду должно работать..... может выше стоит смотреть?

---

← →
Digest   (2006-12-29 05:24) [4]

> 4ert   (29.12.06 05:22) [3]

Поменял на такое, заработало =/

  if not Connected then
   begin
//óäàëÿåì èç proxy.txt
     with TStringList.Create do
     try
      LoadFromFile("proxy.txt");
      Delete(proxycount);
      SaveToFile("proxy.txt");
      Free;
     finally
     end;

//äîáàâëÿåì â badproxy.txt
     with TStringList.Create do
     try
      LoadFromFile("badproxy.txt");
      Add(proxy+":"+proxyport);
      SaveToFile("badproxy.txt");
      Free;
     finally
     end;
    inc(proxycount);
   end;

---

← →
MikePetrichenko ©   (2006-12-29 05:32) [5]

> with TStringList.Create do
>      try
>       LoadFromFile("badproxy.txt");
>       Add(proxy+":"+proxyport);
>       SaveToFile("badproxy.txt");
>       Free;
>
>       LoadFromFile("proxy.txt");
>       Delete(proxycount);
>       SaveToFile("proxy.txt");
>       Free;
>      finally
>      end;


То что выделено жирным - клиника. Да и ровного места тут нету.

---

← →
Digest   (2006-12-29 13:43) [6]

> MikePetrichenko ©   (29.12.06 05:32) [5]

Хотелось бы узнать, почему именно клиника? фаил закрывается(Free;), за ним открывается новый. А главное - как правельно?

---

← →
Virgo_Style ©   (2006-12-29 13:48) [7]

Digest   (29.12.06 13:43) [6]
фаил закрывается(Free;),

Кто тебе такое сказал?

А главное - как правельно?

Без Free

---

← →
Gloomer ©   (2006-12-29 13:49) [8]

> Digest   (29.12.06 13:43) [6]
Разве Free - это закрытие файла??? Какого файла, если ты работаешь с TStringList???
Замени Free на Clear

---

← →
Virgo_Style ©   (2006-12-29 13:49) [9]

Virgo_Style ©   (29.12.06 13:48) [7]
А главное - как правельно?

Без Free

Т.е. без Free там, где оно сейчас, но с Free в секции Finally

---

← →
Palladin ©   (2006-12-29 13:50) [10]

потому что не понимаешь что делаешь

---

← →
Digest   (2006-12-29 13:57) [11]

Gloomer ©   (29.12.06 13:49) [8]
Пасибо.

---

← →
Digest   (2006-12-29 14:02) [12]

Virgo_Style ©   (29.12.06 13:49) [9]
И вам  спасибо. =)

---

← →
Anatoly Podgoretsky ©   (2006-12-29 14:37) [13]

> Digest  (29.12.2006 13:57:11)  [11]

Откуда, бездумно ты этот код скопировал?

---

← →
Digest   (2006-12-29 16:17) [14]

Anatoly Podgoretsky ©   (29.12.06 14:37) [13]
Сам написал, а с чего Вы взяли, что скопировал?

---

← →
Anatoly Podgoretsky ©   (2006-12-29 16:29) [15]

> Digest  (29.12.2006 16:17:14)  [14]

Лучше бы ты скопировал

---

← →
Digest   (2006-12-29 16:36) [16]

> Anatoly Podgoretsky ©   (29.12.06 16:29) [15]

Я там не считаю.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.043 c