0

我正在使用以下内容将文本文件中的文本插入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我想知道的是，当我选择特定的行号时，如何根据行号添加一行。

示例输出：

在此期间，他在学校生活的学术、体育和文化领域表现出色。

在此期间，他在学校生活的学术和体育领域中脱颖而出。

在此期间，他在学校生活的学术和文化领域中脱颖而出。

在此期间，他在学校生活的学术方面表现出色。

在此期间，他在学校生活的体育和文化方面都表现出色。

任何帮助表示赞赏。

4

2 回答 2

2

TStringList我想你是在问TMemo当你从TStringList. 如果是这种情况，您可以使用以下内容：

Memo1.Lines.Add(SL[Index]);

所以如果你的第一行keyfile.txt是

During this time he has distinguished himself in the academic, sporting and cultural spheres of school life.

你会用

Memo1.Lines.Add(SL[0]);  // Desired line number - 1

好的，在您对您的问题发表评论后，我想我知道您想要做什么。这是一种方法：

将 a TListBox、 aTButton和 aTMemo放在表单上。我将我的按钮安排ListBox在左侧，旁边的按钮（在右上角），然后是按钮右侧的备忘录。

在这种情况FormCreate下，使用您的文本文件填充TListBox并清除现有的备忘录内容：

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  ListBox1.Items.LoadFromFile('c:\testimeng\keyfil.txt');
end;

双击按钮添加OnClick处理程序：

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  // If there's an item selected in the listbox...
  if ListBox1.ItemIndex <> -1 then
  begin
    // Get the selected item
    s := ListBox1.Items[ListBox1.ItemIndex];
    // See if it's already in the memo. If it's not, add it at the end.
    if Memo1.Lines.IndexOf(s) = -1 then
      Memo1.Lines.Add(s);
  end;
end;

现在运行应用程序。单击列表框中的项目，然后单击按钮。如果该项目尚未出现在备忘录中，它将作为新的最后一行添加。如果它已经存在，则不会添加（以防止重复）。

如果您想将它添加到当前最后一行的末尾（可能是扩展段落），那么您可以这样做：

// Add selected sentence to the end of the last line of the memo, 
// separating it with a space from the content that's there.
Memo1.Lines[Memo1.Lines.Count - 1] := Memo1.Lines[Memo1.Lines.Count - 1] + #32 + s;

因此，现在应该很清楚，要添加到特定行的末尾，您只需抓取已经存在的内容并添加到其中。例如，如果用户3输入 a TEdit：

procedure TForm1.FormCreate(Sender: TObject);
begin
  SL := TStringList.Create;
  SL.LoadFromFile('c:\testimeng\keyfil.txt');
end;

procedure TForm1.ButtonAddTextClick(Sender: TObject);
var
  TheLine: Integer;
begin
  // SL is the TStringList from the FormCreate code above
  TheLine := StrToIntDef(Edit1.Text, -1);
  if (TheLine > -1) and (TheLine < Memo1.Lines.Count) then
    if TheLine < SL.Count then
      Memo1.Lines[TheLine] := Memo1.Lines[TheLine] + SL[TheLine];
end;
于 2013-05-17T14:00:50.273 回答
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;
于 2014-09-02T18:36:20.180 回答