看看下面的代码都用了那些的编码风格的特点?尽可能的列出来. ( 积分: 100 )

  • 主题发起人 主题发起人 sjz_no1
  • 开始时间 开始时间
S

sjz_no1

Unregistered / Unconfirmed
GUEST, unregistred user!
看看下面的代码都用了那些的编码风格的特点?尽可能的列出来.
// 字段列表功能
class function ListFieldsStr(_feild_list: TList;
_is_include_id: Boolean = True;
_is_include_no_cache: Boolean = True;
_is_no_cache_only: Boolean = False
): string;

class function TBaseDBUtility.ListFieldsStr(_feild_list: TList;
_is_include_id: Boolean
_is_include_no_cache: Boolean;
_is_no_cache_only: Boolean): string;
var
i : Integer;
p_field_info : PBaseDBFieldInfo;
begin
Result := '';

for i := 0 to _feild_list.Count - 1 do
begin
p_field_info := PBaseDBFieldInfo(_feild_list.Items);

// 是否 只包含 非缓存 字段
if _is_no_cache_only then
begin
if p_field_info^.IsCache then
Continue;

// 子表字段 不缓存
if (p_field_info^.FieldType = ftDetailTable) or
(p_field_info^.FieldType = ftMultiRef) then
Continue;
end
else begin
if not _is_include_id and p_field_info^.IsIDField then
Continue;

// 如果 不包含 非缓存 字段,即仅包含缓存字段
if (not _is_include_no_cache) and
(not p_field_info^.IsCache) then
Continue;
end;

if Result = '' then
Result := p_field_info^.FieldName
else
Result := Result + ',' + p_field_info^.FieldName;
end;
end;
 
23拾年代多了一横的风格
 
各位富翁帮帮手,这是我一个面试后,那边公司给出的题目.
先多谢了
 
没看出有什麽风格
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
731
import
I
I
回复
0
查看
526
import
I
I
回复
0
查看
664
import
I
后退
顶部