打印

try except

adam1103

新手上路

Rank: 1

帖子: 44
精华: 0
性别: 男
注册时间: 2007-7-24

1^# 大中小发表于 2007-12-24 18:21 只看该作者

try except

try
...
....
......
.....
...

except
....
..
这个语句是什么意思?

搜索更多相关主题的帖子: except try

TOP

anthony634

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 587
精华: 4
性别: 男
来自: 西南交大
注册时间: 2006-6-8

2^# 大中小发表于 2007-12-24 19:17 只看该作者

处理错误的。
书上有说的

上下求索

TOP

anthony634

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 587
精华: 4
性别: 男
来自: 西南交大
注册时间: 2006-6-8

3^# 大中小发表于 2007-12-24 19:30 只看该作者

procedure TForm1.Button1Click(Sender: TObject);
var
  testRange: array [0..5]of Integer;
  index: Integer;
begin
  index := 6;
  ZeroMemory(@testRange, SizeOf(testRange));
  try
    testRange[index] := 6;
    Self.Caption := IntToStr(testRange[index]);
  except
    on e: Exception do
      Self.Caption := '测试错误:' + e.Message;
  end;
end;
顶了一个以前的帖上来，你可以去浏览下

上下求索

TOP

adam1103

新手上路

Rank: 1

帖子: 44
精华: 0
性别: 男
注册时间: 2007-7-24

4^# 大中小发表于 2007-12-25 08:51 只看该作者

哦
谢谢了

ZeroMemory(@testRange, SizeOf(testRange));
@testRange 是什么意思?

TOP

zhoukai

新手上路

Rank: 1

帖子: 9
精华: 0
注册时间: 2008-4-11

5^# 大中小发表于 2008-4-18 09:28 只看该作者

一点小的回答！

try
正常语句
except
异常处理语句
end
功能：当发生异常时，在EXCEPT后面可以知道发生了什么异常，并可能进行相关的处理。
@放在变量的前面，可以获取该变量的地址！

TOP

‹‹ 上一主题 | 下一主题 ››