delphi - 行番号に従って特定の行を tmemo に書き込みます

Question

以下を使用して、テキスト ファイルからテキストを に挿入していますTMemo。

procedure TForm1.Button1Click(Sender: TObject);
  var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('c:\testimeng\keyfil.txt');
    Memo1.Lines.Assign(SL);
  finally
    SL.Free;
  end;
end;

TMemo私が知りたいのは、特定の行番号を選択したときに、行番号に従って単一の行を追加する方法です。

出力例:

この間、彼は学校生活の学問、スポーツ、文化の分野で際立っていました。

この間、彼は学校生活の学問とスポーツの分野で際立っていました。

この間、彼は学校生活の学問的および文化的分野で際立っていました。

この間、彼は学校生活の学問的側面で際立っていました。

この間、彼は学校生活のスポーツ面と文化面の両方で際立っていました。

どんな助けでも感謝します。

Answer 1

TMemo をマウスでクリックして文字列で特定の行を書き込む

Procedure TForm1.Button1Click(Sender: TObject);
Var SL: TStringList;
    LineNumber : Integer;
Begin
  LineNumber := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  Memo1.SelStart := Memo1.Perform(EM_LINEINDEX, LineNumber, 0);
  Memo1.SelLength := Length(Memo1.Lines[LineNumber]) ; 
  Memo1.SetFocus;

  SL := TStringList.Create;
  try
    SL.LoadFromFile('c:\testimeng\keyfil.txt');
    Memo1.SelText := SL.Strings[0];
  finally
    SL.Free;
  end;
End;