コード補完の実装を実現するには？ (ID:43266)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

monaaさん、アドバイスありがとうございます。
一応、気合いで下記の状態まで書いてみました。
現状では、メモから、全ての単語をリストアップする仕様まで、
書いてみました。が、一行目までしか正常動作せず…。
何が原因でしょうか？？
ご教示よろしくお願いしますｍ（＿＿）ｍ。

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
var
  fs,fa,s:string;
  i,i1,ans1,loop:integer;
  sar:array[0..50] of string;
  sset:array[0..14] of string;
begin
  sset[0] := '.';
  sset[1] := ',';
  sset[2] := '[';
  sset[3] := ']';
  sset[4] := '+';
  sset[5] := '-';
  sset[6] := '/';
  sset[7] := ' ';
  sset[8] := '^';
  sset[9] := '\';
  sset[10] := '!';
  sset[11] := '&';
  sset[12] := '%';
  sset[13] := '#';
  sset[14] := '|';

with form1.listbox1 do begin
    if key = char(46) then begin
      panel1.Visible := true;
      form1.ActiveControl := edit1;
      items.Clear;
      panel1.left := mx;
      panel1.top := my;
      tag := 1;
      i1 := 0;
      loop := 0;
      listbox1.Items.Add('');
    end;

if panel1.visible = true then begin
      i := 0;
      while 14 > loop do begin
        s := sset[loop];
        while form1.RichEdit1.Lines.Count > i do begin
          i1 := 0;
          ans1 := ansipos(sset[loop],form1.RichEdit1.Lines[i]);
          if ans1 <> -1 then begin
            fs := form1.RichEdit1.Lines[i];
            while ans1 > i1 do begin
              sar[i1] := fs[i1];
              listbox1.Items[i] := listbox1.Items[i] + sar[i1];
              i1 := i1 + 1;
            end;

//listbox1.Items[i] := fs;
              tag := 0;
              s := '';
            end;
            i := i + 1;
          end;
          loop := loop + 1;
        end;
        
      end;
    if (key = char(27)) or (key = char(13)) then begin
        items.Clear;
      panel1.visible := false;
      exit;
    end;
  end;

end;

←解決時は質問者本人がここをチェックしてください。

戻る