completion.pad

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAD 代码 · 共 40 行

unit Completion;

uses Global;

procedure InitCompletion;
begin
  { dummy }
end;

procedure DoneCompletion;
begin
  { dummy }
end;

procedure OpenCompletion(FileName: string);
var
  FN: string;
begin
  FN := WorkingDir + Editor.HighlighterName + '.templates';
  if FileExists(FN) then
    Editor.Completion.Templates.LoadFromFile(FN)
  else
    Editor.Completion.Templates.Clear;
  FN := WorkingDir + Editor.HighlighterName + '.identifers';
  if FileExists(FN) then
  begin
    Editor.Completion.Enabled := True;
    Editor.Completion.Identifers.LoadFromFile(FN);
  end
  else
  begin
    Editor.Completion.Enabled := False;
    Editor.Completion.Identifers.Clear;
  end;
  Editor.Completion.Separator := '~';
  Editor.Completion.CRLF := '/n/';
end;

end.