TFileStream

← →
ShadowMan (2007-05-01 22:06) [0]

При использовании var:= TFileStream.Create("...", fmOpenWrite) если целевой файл уже запущен возникает ошибка "файл уже используется". Как сделать проверку этой ошибки? try...except почему-то не проходит.

← →
Джо © (2007-05-01 22:24) [1]

> [0] ShadowMan (01.05.07 22:06)
try...except
> почему-то не проходит.

Хотелось бы посмотреть на конкретный код, в котором «не проходит».

← →
Sergey Masloff (2007-05-01 22:26) [2]

Джо © (01.05.07 22:24) [1]
А чего даст код если все это дело из под среды запущено и галка "stop on каких-то там exception"?

← →
Loginov Dmitry © (2007-05-01 22:30) [3]

> try...except почему-то не проходит

try
var:= TFileStream.Create("...", fmOpenWrite)
try
/////////
finally
var.Free;
end;
except
on E: EFOpenError do
begin
// Как-то уведомить об ошибке пользователя,
// либо обработать ошибку иным способом
end;
end;

← →
ShadowMan (2007-05-01 22:31) [4]

Спасибо Джо!
То есть try... except выполняется при любых исключениях и все дело было в компиляторе? По ходу так.
Спасибо.

← →
Джо © (2007-05-01 22:55) [5]

> [4] ShadowMan (01.05.07 22:31)
> Спасибо Джо!

Собственно, мне совершенно незачем.

> [2] Sergey Masloff (01.05.07 22:26)
> Джо © (01.05.07 22:24) [1]
> А чего даст код если все это дело из под среды запущено
> и галка "stop on каких-то там exception"?

Из дурного любопытства, естественно.

← →
ShadowMan (2007-05-01 23:20) [7]

Вобщем все, проблема решена.
Конструкция try...except...end; работает всегда, просто при запуске из среды компилятор игнорит ошибки, но все равно останавливается на исключениях. А это и есть исключение.

TFileStream Найти похожие ветки