| | | |

2019年6月21日

摘要： grDirectory.DataSource.DataSet.Locate('StepNo', StrToInt(stepList[i]), []); grDirectory.ClearSelection; grDirectory.FocusedNode.Selected := True; 阅读全文

posted @ 2019-06-21 13:32 zyb2016 阅读(1365) 评论(0) 推荐(0)

Delphi中常用字符串处理函数

摘要： 1.copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' 2.concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串( 阅读全文

posted @ 2019-06-21 13:30 zyb2016 阅读(1370) 评论(0) 推荐(0)

ListView的DrawSubItem时间添加边框，字体变粗问题

摘要： procedure TFrmrdp.ListView1AdvancedCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: integer; State: TCustomDrawState; Stage: TCust 阅读全文

posted @ 2019-06-21 13:22 zyb2016 阅读(374) 评论(0) 推荐(0)