本人写了以下这段代码:
function TPSCS170.ConfirmSave(ButtonCount: integer): Boolean;
var
CanClose: Boolean;
Answer : Integer;
begin
with dmPSCS170 do
begin
if Modified then
begin
if ButtonCount = 2 then
Answer:=DoSaveClick
else
Answer:=DoCloseClick; case Answer of
IDYES:
begin
Save;
CanClose := True;
end;
IDNO:
begin
CanClose := True;
if tblBreakingLine.Database.InTransaction then
tblBreakingLine.Database.Rollback;
if V_No_Inner_Label = 'N' then
begin
if tblBreakingDetail.Database.InTransaction then
tblBreakingDetail.Database.Rollback;
end;
dmPSCS170.ActiveOuterBox;
dmPSCS170.ActiveInnerBox;
dmPSCS170.Modified := False;
sptnSave.Enabled := False;
end;
IDCANCEL:
begin
CanClose := False;
end;
end; Result := CanClose;
end;
end;
end;由于没有写默认的返回值,它会默认返回一个布尔类型。
但是奇怪的是,我的机器上运行返回的是false,另外一台机器返回的是true。
大家知道是为什么么?
function TPSCS170.ConfirmSave(ButtonCount: integer): Boolean;
var
CanClose: Boolean;
Answer : Integer;
begin
with dmPSCS170 do
begin
if Modified then
begin
if ButtonCount = 2 then
Answer:=DoSaveClick
else
Answer:=DoCloseClick; case Answer of
IDYES:
begin
Save;
CanClose := True;
end;
IDNO:
begin
CanClose := True;
if tblBreakingLine.Database.InTransaction then
tblBreakingLine.Database.Rollback;
if V_No_Inner_Label = 'N' then
begin
if tblBreakingDetail.Database.InTransaction then
tblBreakingDetail.Database.Rollback;
end;
dmPSCS170.ActiveOuterBox;
dmPSCS170.ActiveInnerBox;
dmPSCS170.Modified := False;
sptnSave.Enabled := False;
end;
IDCANCEL:
begin
CanClose := False;
end;
end; Result := CanClose;
end;
end;
end;由于没有写默认的返回值,它会默认返回一个布尔类型。
但是奇怪的是,我的机器上运行返回的是false,另外一台机器返回的是true。
大家知道是为什么么?
解决方案 »
- 数据大概在10W行左右,运行速度很慢,高手帮忙优化下
- TIDhttp登录网页问题
- 【急代解决 - 如何读取并显示数据库中 htm 形式的数据,显示也为htm 形式】
- 请教 Delphi6.0 另类安装问题
- 高分请教interbase如何修复数据库文件,急!!!!!!!!!!!
- 如何让一个LABEL控件放在一个frame中?
- 急!请教:在控件包文件的Requies段中引用一个文件的具体操作过程是怎样的?本人愿出100分。
- Delphi编绎的程序没有图标????
- 怎样设置双面打印?
- 如何实现窗体的部分刷新?
- 已知管理员密码的情况下,能否抓取局域网内其它电脑的配置?
- 如何用indy实现可以及时控制的下载?
但是很想搞明白导致两台机器运行的结果不一样的原因,难道真的是传说中的RPWT么 -_-!!!