在delphi中怎样写出错处理的语句

[bestluo]

在delphi中怎样写出错处理的语句

[netlib]

Try
//程序代码
except
//出错处理
end;

[cutelocust]

try


finally

end;

[loverlv]

try
StrToInt(Edit1.Text);
Except
Raise Exception.Create('Please input a integer data');
end;

[loverlv]

Procedure Form1.buttonclick(sender : TObject);
var
F : Form2;
begin
F := TForm2.Create(Application);
try
F.ShowModal;
Finally
F.Free;
F:=nil;
end;
end;

[Shawphen2000]

try
......
except或者Finally
......

[jollyant2001]

try
....
except
...//try中语句错误后执行
end;

or

try
...
finally
...//不管try中语句是否正确,都执行
end;