自动匹配输入字符串(自动过滤)

自动过滤 procedure TAutoCompleteForm.FormCreate(Sender: TObject); begin FAutoComplete := CreateComObject(CLSID_AutoComplete) as IAutoComplete2; FStrings := TEnumString.Create(SourceMemo.Lines) as IUnknown; OleCheck(FAutoComplete.SetOptions(ACO_AUTOSUGGEST or ACO_UPDOWNKEYDROPSLIST)); OleCheck(FAutoComplete.Init(CompletionEdit.Handle, FStrings, nil, nil)); end;