lazarus使用中文拼音首字母实现中文变量等快速代码补全

标签：中文 AFirstPos 补全 ALine 首字母 AAdd lazarus ALength

在lazarus使用中文变量等代码补全功能基础上，按以下方法就可以实现输入中文拼音首字母就可以快速代码补全功能。
代码补全功能：Ctrl+w

 

打开\lazarus\ide\wordcompletion.pp

找到 procedure AddIfMatch(const ALine, ALineUp:string; const AFirstPos, ALength: Integer);（lazarus 3.4在第145行）
添加红色代码后，重新编译lazarus就可以。

 procedure AddIfMatch(const ALine, ALineUp:string; const AFirstPos, ALength: Integer);
  var
    AAdd: Boolean;
    tmpstr:string;
  begin
    if FilterLen=0 then
      AAdd := True
    else
    begin
      AAdd := False;
      if CaseSensitive then begin
        if ContainsFilter then
          AAdd := MyPos(Filter, ALine, AFirstPos, AFirstPos+ALength-1)>0
        else
          AAdd := strlcomp(PChar(@ALine[AFirstPos]),PChar(Filter),FilterLen)=0;
      end else
      begin
        if ContainsFilter then
          AAdd := MyPos(UpFilter, ALineUp, AFirstPos, AFirstPos+ALength-1)>0
        else
          AAdd := strlcomp(PChar(@ALineUp[AFirstPos]),PChar(UpFilter),FilterLen)=0;
      end;
    end;
    tmpstr:=getPinYinCode(copy(ALine,AFirstPos, ALength),filter);
    if pos(UpperCase(filter),tmpstr)>0 then
      AAdd:=true;
    if AAdd then
      Add(Copy(ALine, AFirstPos, ALength));
  end;

 

标签：中文,AFirstPos,补全,ALine,首字母,AAdd,lazarus,ALength
From： https://www.cnblogs.com/qiufeng2014/p/18426611