本文主要是介绍创建世界唯一标识符GUID,在cxgrid单元格中关键字显示不同颜色,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
创建GUID
function WGetGUID(): string;
varUid: TGuid;rs: HResult;
beginrs := CreateGuid(Uid);if rs = S_OK thenbegin
result := GuidToString(Uid)endelse
result := '';
end;
Cxgrid单元格关键字变色
这需要使用控件RichEdite,Cxgrid 单元格关键字变色,其实是更改数据库单元格数据的颜色,所以数据库的字段应该是BINARY格式,这样才能把带颜色的字体存到数据库中。代码如下
该函数为自己定义的函数。
procedure TFormSystemTree.SearchRSHandleFileContent(filecontend, keyword,guid: string);
varn, m: integer;linenum, filecontent: string;sqls, tmpStr: string;i, j: integer;str: string;
beginn := Pos(' ', filecontend);linenum := copy(filecontend, 1, n - 1);with DM.tb_filecontent dobegin
Append;
fieldbyname('linenum').AsString := linenum;
fieldbyname('filename').AsString := guid;tmpStr := copy(filecontend, n + 1, length(filecontend) - n);DBRichEdit1.Clear;
DBRichEdit1.Text := tmpStr;
str := DBRichEdit1.Text;
for j := 0 to length(tmpStr) - 1 do
begini := DBRichEdit1.FindText(keyword, j, length(tmpStr), [stMatchCase]);if i >= 0 thenbeginDBRichEdit1.SelStart := i;DBRichEdit1.SelLength := length(keyword);DBRichEdit1.SelAttributes.Color := clred; // 改变选择内容的字颜色end;
end;
str := DBRichEdit1.Text;
tmpStr := GetRTFText((DBRichEdit1));
fieldbyname('content').AsString := tmpStr;
post;
next;
DBRichEdit1.Lines.Clear;end;
end;
这篇关于创建世界唯一标识符GUID,在cxgrid单元格中关键字显示不同颜色的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!