Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Digest © (2006-12-29 04:40:00)
Привет мастера!
Подскажите, а из-за чего может выскакивать такая ошибка?
http://img216.imageshack.us/img216/1725/delphidn0.jpg
Вроде появляется на ровном месте.

Digest (2006-12-29 16:36:00) [1]

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

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

Anatoly Podgoretsky (2006-12-29 16:29:00) [2]
> Digest (29.12.2006 16:17:14) [14]

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

Digest (2006-12-29 16:17:00) [3]
Anatoly Podgoretsky © (29.12.06 14:37) [13]
Сам написал, а с чего Вы взяли, что скопировал?

Anatoly Podgoretsky (2006-12-29 14:37:00) [4]
> Digest (29.12.2006 13:57:11) [11]

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

Digest (2006-12-29 14:02:00) [5]
Virgo_Style © (29.12.06 13:49) [9]
И вам спасибо. =)

Digest (2006-12-29 13:57:00) [6]
Gloomer © (29.12.06 13:49) [8]
Пасибо.

Palladin (2006-12-29 13:50:00) [7]
потому что не понимаешь что делаешь

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

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

Без Free

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

Virgo_Style (2006-12-29 13:48:00) [10]
Digest (29.12.06 13:43) [6]
фаил закрывается(Free;),

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

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

Без Free

Digest (2006-12-29 13:43:00) [11]

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

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

MikePetrichenko (2006-12-29 05:32:00) [12]

> 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 05:24:00) [13]

> 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;

4ert (2006-12-29 05:22:00) [14]
Странно, с виду должно работать..... может выше стоит смотреть?

Digest (2006-12-29 05:04:00) [15]
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 04:41:00) [16]
а можно взглянуть на это ровное место?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »