关于异常处理的问题，帮帮忙。

[boatzm]

我要想打开一个指定图片A ，如果A 不存在 则打开B
用如下语句
try
image1.Picture.LoadFromFile('c:\a.jpg);
except
pname:='c:\b.jpg';
image1.Picture.LoadFromFile(pname);
end;

这样好像不行，请问怎样弄这段代码呢？谢谢

[Shiyl]

if fileexists('c:\a.jpg') then
begin
image1.Picture.LoadFromFile('c:\a.jpg);
end else
begin
pname:='c:\b.jpg';
image1.Picture.LoadFromFile(pname);
end else
begin
showmessage('error');
end;

[hejianling305]

楼主要考虑如果都找不到会有什么结果啊。

[boatzm]

hejianling305(坚持到底) ：
对！！谢谢，差点忘了，我本来以为肯定找得到，汗ing！

谢谢！Shiyl(㊣★¤★㊣)

[xiaoqiang123]

楼主：我试过了，你的代码没问题的，我去加载bmp就成功，我想可能不能加jpeg的格式吧

[xiaoqiang123]

默认情况下image不能加jpg。
在uses里加jpeg就可以了


别忘记给我份啊：）

[boatzm]

xiaoqiang123(xiaoqiang) ：
我的user 里面有jpg ？！！

不管反正解决了，分大家都有哈。
还有上面的if 是不是有问题，通不过？
if ---- then
begin
语句1
end else
begin
语句2
end else
begin
语句3
end;

好像不对吧，不知道用多个else 的语句到底应该怎么写？！？

[xiaoqiang123]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
pname:string;
begin
if fileexists('d:\1.jpg') then
begin
try
image1.Picture.LoadFromFile('d:\1.jpg');
except
begin
pname:='d:\2.jpg';
image1.Picture.LoadFromFile(pname);
end;
end;
end
else
showmessage('n0');


end;


改一下就行了：）

[gyf]

if ---- then
begin
语句1
end else if
begin
语句2
end else
begin
语句3
end;

[flyforlove]

boatzm(小舟)
多个分支的话，
if then
being

end
else if
begin

end
else
begn

end;

[boatzm]

xiaoqiang123(xiaoqiang) ：
我觉得有一点多余
if fileexists('d:\1.jpg') then //这边已经判断了，还用得着try？不用了吧！
begin
try
image1.Picture.LoadFromFile('d:\1.jpg');
except
begin
pname:='d:\2.jpg';
image1.Picture.LoadFromFile(pname);
end;

谢谢，结贴了，分有点少，不要介意哈！