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

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

 

修改步骤：
打开\lazarus\ide\wordcompletion.pp文件,修改以下2个位置，添加红色代码后，重新编译lazarus就可以。
1、在uses添加getPinYinCodes，GetPinYinCodes单元在这下载：https://www.cnblogs.com/qiufeng2014/p/18418176

unit WordCompletion;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, SynEdit,getPinYinCodes;

type

2、找到 procedure AddIfMatch(const ALine, ALineUp:string; const AFirstPos, ALength: Integer);（lazarus 3.4在第145行）

 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;