Function xzhydmgc(var HYDM:String):TModalResult; begin With TfrmxzHydm.Create(Application) do begin try With Query1 do begin Close; SQL.Clear; SQL.Add('Select HYDM,HYMC from dbo.HYDMB '); SQL.Add(' Where DPYFLAG = '''+'是'+''' Order by HYDM'); Open; FieldByName('HYDM').Visible:=False; end; AdjustFieldsTitle(Query1,'HYDMB'); Result:=ShowModal; HYDM:=Query1.FieldByName('HYDM').AsString; finally free; end; end; end;
没有try-except-finally
支持嵌套F8, F7, F4, Ctrl+F2, ...
begin
With TfrmxzHydm.Create(Application) do
begin
try
With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select HYDM,HYMC from dbo.HYDMB ');
SQL.Add(' Where DPYFLAG = '''+'是'+''' Order by HYDM');
Open;
FieldByName('HYDM').Visible:=False;
end;
AdjustFieldsTitle(Query1,'HYDMB');
Result:=ShowModal;
HYDM:=Query1.FieldByName('HYDM').AsString;
finally
free;
end;
end;
end;
try-except发出错误后,执行except后的语句。
try-finally-end
F8, F7, F4, Ctrl+F2,Ctrl+F7(取SQL语句)
try-except-end
try-finally-end
F8, F7, F4, Ctrl+F2,Ctrl+F7
2. try-finally,或嵌套
3. try-except-finally,或嵌套
4. try-finally-except,或嵌套
5. 设置断点,按F8, 逐行调试
6. 设置断点,按F7, 逐行调试并跟踪函数
5. 设置断点,按F5,取得变量值