rtgit/RtTool
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修改字段字典数据未定义提示错误的问题

Browse Source
This commit is contained in:
sgwp 2025-03-06 14:34:07 +08:00
parent a3d442acd6
commit 1b7daeaaf1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_ControlData.pas
View File

@ -33,7 +33,7 @@ begin
if IsEmpty then if IsEmpty then
begin begin
application.MessageBox(PWideChar('未定义等级对应的字段字典数据(' + mFlag + ')'),'',0); application.MessageBox(PWideChar('未定义对应的字段字典数据(' + mFlag + ')'),'',0);
Exit; Exit;
end; end;
combobox.Properties.BeginUpdate; combobox.Properties.BeginUpdate;
@ -54,7 +54,7 @@ begin
except except
raise Exception.Create(PWideChar('获取等级字段字典数据(' + mFlag + ')时，发生错误!')); raise Exception.Create(PWideChar('获取字段字典数据(' + mFlag + ')时，发生错误!'));
end; end;
end; end;
@ -77,7 +77,7 @@ begin
if IsEmpty then if IsEmpty then
begin begin
application.MessageBox(PWideChar('未定义等级对应的字段字典数据(' + mFlag + ')'),'',0); application.MessageBox(PWideChar('未定义对应的字段字典数据(' + mFlag + ')'),'',0);
Exit; Exit;
end; end;
ComboBoxProperties.Items.Clear; ComboBoxProperties.Items.Clear;
@ -91,7 +91,7 @@ begin
except except
raise Exception.Create(PWideChar('获取等级字段字典数据(' + mFlag + ')时，发生错误!')); raise Exception.Create(PWideChar('获取字段字典数据(' + mFlag + ')时，发生错误!'));
end; end;
end; end;