Как добавлять элементы меню динамически, например похожие слова из словаря dict.txt
, желательно с событием, заменяющим выделенное слово на словарное?
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
search, dictItem: AnsiString;
pitem: TMenuItem;
l, r, j: integer;
begin
PopupMenu1:=PopupMenu1.Create(RichEdit1);
PopupMenu1.Items.Clear;
search:=Trim(RichEdit1.SelText);
if (RichEdit1.SelAttributes.Color <> clRed) or (RichEdit1.SelLength < 2) then exit;
AssignFile(input, 'dict.txt');
reset(input);
while not(eof(input)) do
begin
readln(dictItem);
if LeveDist(dictItem, search) < 3 then
begin
pitem:=TMenuItem(PopupMenu1);
pitem.Caption:=dictItem;
PopupMenu1.Items.Add(pitem);
end;
end;
end;