completion.pad

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

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.