Delphi res (проверить существует ли файл)

[Painkiller_13]

Есть файл img.res в не храняться изображения

ResStream := TResourceStream.Create(HInstance, edit1.Text, RT_RCDATA);
Image1.Picture.LoadFromStream(ResStream);
ResStream.SaveToFile('img.png');
image1.Picture.LoadFromFile('img.png');
ResStream.Free;

В edit1 пишеться имя картинки которую нужно загрузить. Как проверить есть ли данная картинка в res непосредственно перед загрузкой?

[Yurk@]

а если

try
  ResStream.SaveToFile('img.png');
  image1.Picture.LoadFromFile('img.png');
Finally
  ResStream.Free;
  <такого файла нет>
end;

[Painkiller_13]

ResStream := TResourceStream.Create(HInstance, edit1.Text, RT_RCDATA);

Ошибку выдает на этой строке.
И мне нужно если файл есть 1 действие если нету то 2 действие

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

ну так ловите ошибку на той строке, исключение там будет означать что ресурса такого нет(в общем случае).

[Амазонка]

А вообще, как можно в Delphi узнать существует какой-либо файл, или нет?

[phomm]

FileExists('c:\папка\файл'); - функция возвращает true, если файл существует и false, если нет.
Читайте хелп, да и нагуглить это просто.

[Painkiller_13]

try 
// Все что должно выполняться, и может вызвать ошибку 
finally 
// Всё что выполнится даже в случае ошибки

try 
// Все что должно выполняться, и может вызвать ошибку 
except 
// Всё что выполнится только в случае ошибки

1.Нужно чтоб когда ошибка срабатывала окно с ошыбкой не выводилось
2.Нужно чтоб происходила два действие в зависимости от то была ошибка или нет.
try finally - Выполниться в любом случае
try except - Можно описать если ошибка произойдет но не смог добавит еще одну ветку в которой действие будет выполняться только если ошибки небыло.

[Painkiller_13]

Все разобрался после except добавил переменую в которую записую была ошыбка или нет.
Появился еще один вопрос.

ResStream := TResourceStream.Create(HInstance, edit1.Text, RT_RCDATA);
Image1.Picture.LoadFromStream(ResStream);
ResStream.SaveToFile('img.png');
image1.Picture.LoadFromFile('img.png');
ResStream.Free;

ResStream := TResourceStream.Create(HInstance, edit1.Text, RT_RCDATA);
image1.Picture.Bitmap.LoadFromStream(ResStream);
ResStream.Free;

При использование 2 кода выдает ошибку bitmap image is not valid
(При первом варианте все прекрасно работает)
изображение формата .png в uses подключены pngimage, jpeg; но ошыбка всеровно продолжаеться.

[phomm]

try
//код, где может быть ошибка
//последние строки - выполнить, то, что надо, когда ошибка не произошла
except
// когда ошибка произошла
end;

Всё просто.

Насчёт имейджа - пробуйте прямо в Picture записывать

[Painkiller_13]

image1.Picture.Bitmap.LoadFromStream(ResStream);

я и записую а оно bitmap image is not valid