% var I: Integer; S,T,V,U, tbN, Tmp1,Tmp2: String; F: TCTMetaField; col:Integer; begin tbN:=CurTable.UIDisplayName; S := StringReplace(Tmp1,'${tbN}',tbN,[rfReplaceAll]); %>
| ${tbN} | |||||
| ${tbN}信息管理 | |||||
| 提示: 请确保填写的信息真实、正确、有效。 | |||||
| ${tbN}信息 | 请注意:带有*的项目必须填写。 | ||||
| '); CurOut.Add(''); col := 1; end; CurOut.Add(' | |||||
| '+U+' | '); T:='' CurOut.Add(T); col := 3; Continue; end; if col=3 then begin CurOut.Add(' | ||||
| '+U+' | '); if (F.DataType = cfdtBool) then T:='是 | ' else begin if(Pos('类型',S)>0) or (Pos('类别',S)>0) or (Pos('所属',S)>0) or (Pos('状态',S)>0) or (Pos('级别',S)>0) or (Pos('选择',S)>0) or (Pos('时间',S)>0) or (Pos('日期',S)>0) or (F.DataType = cfdtDate) or (F.DataType = cfdtEnum) then T:='' else T:=' | '; end; CurOut.Add(T); col:=col+1; end; if col=2 then begin CurOut.Add(' | '); col:=3; end; if col=3 then begin CurOut.Add(' | |