DELPHI 如何选中MEMO中的某行内容记录显示到EDIT

2025-04-25 21:32:38

推荐回答（2个）

回答1：

edit1.text := memo1.lines.strings[index]; //index 为行索引，下标为0

回答2：

这个其实很简单。
var a:integer;

procedure TForm1.memo1Click(Sender: TObject);
begin
a:=SendMessage(Memo1.Handle,EM_LineFromChar,Memo1.SelStart,0); //获取当前行号
edit1.Text:=memo1.Lines.Strings[a]; //记录显示
end;

最新问答

年龄问题

鞍山市铁西区皮口海鲜楼上房子的产权是哪年的？

每个月都有卵泡，但就是长不大，有什么办法吗

刷单被骗申请了退款对方说半个月退回会退吗

我国自1984年4月8日发射第一颗地球同步通信卫星以来，已经陆续发射了多颗这类通信卫星．同步通信卫星虽然

DELPHI 如何选中MEMO中的某行内容 记录显示到EDIT

DELPHI 如何选中MEMO中的某行内容记录显示到EDIT