创建世界唯一标识符GUID,在cxgrid单元格中关键字显示不同颜色

最新推荐文章于 2021-02-26 08:14:30 发布

singular2611

最新推荐文章于 2021-02-26 08:14:30 发布

阅读量712

点赞数

分类专栏： delphi 文章标签： guid

本文链接：https://blog.csdn.net/singular2611/article/details/44489827

版权

delphi 专栏收录该内容

41 篇文章 0 订阅

订阅专栏

创建GUID

function WGetGUID(): string;
var
  Uid: TGuid;
  rs: HResult;
begin
  rs := CreateGuid(Uid);
  if rs = S_OK then
  begin
result := GuidToString(Uid)
  end
  else
result := '';
end;

Cxgrid单元格关键字变色

这需要使用控件RichEdite，Cxgrid 单元格关键字变色，其实是更改数据库单元格数据的颜色，所以数据库的字段应该是BINARY格式，这样才能把带颜色的字体存到数据库中。代码如下
该函数为自己定义的函数。

procedure TFormSystemTree.SearchRSHandleFileContent(filecontend, keyword,guid: string);
var
  n, m: integer;
  linenum, filecontent: string;
  sqls, tmpStr: string;
  i, j: integer;
  str: string;
begin
  n := Pos(' ', filecontend);
  linenum := copy(filecontend, 1, n - 1);

  with DM.tb_filecontent do
  begin
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
begin

  i := DBRichEdit1.FindText(keyword, j, length(tmpStr), [stMatchCase]);
  if i >= 0 then
  begin
    DBRichEdit1.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;