时间戳

首页 > 解决方案 > Delphi 7：如何在 TMemo 框中插入一行到 TEdit

delphi-7 - Delphi 7：如何在 TMemo 框中插入一行到 TEdit

问题描述

您好，我是 Delphi 的初学者。如何将我的 TMemo 中的一行插入 TEdit？

目前有

procedure TForm1.tt_memoloadTimer(Sender: TObject);
  //Load the contents of the words.txt into the Memo Box
begin
  mem_boxTlist.Lines.LoadFromFile('G:\My Drive\L3DGP_Mortel_Kian_(18365)\Guess A Word\Project\words.txt');
end;

见下文

当用户点击一行时，它应该被插入到 TEdit 中。

标签： delphi-7

解决方案

  • mem_boxTlist.lines 是备忘录中的字符串列表。

  • mem_boxTlist.lines[i] 是 mem_boxTlist.lines 中第 i 个索引处的字符串。

  • mem_boxTlist.caretPos.Y 是光标所在行的索引。

如果您尝试将在备忘录中单击的单词插入到文本框中，请在备忘录的 onclick 事件中执行此操作：

procedure TfrmMain.mem_boxTlistClick(Sender: TObject);
begin
  editBox.text := mem_boxTlist.lines[mem_boxTlist.caretPos.Y];
end;

推荐阅读