如何 select 来自剪贴板的特定行

Question

我已经使用 sLineBreak 从多个 TEdit 复制文本，我想将剪贴板逐行粘贴到其他 TEdit

谢谢

Answer 1

您可以使用 TStringList 将 Clipboard.AsText 转换为单独行的列表。然后使用字符串索引从字符串列表中获取单独的行。例如：

procedure TForm21.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Text := clipboard.AsText;
    Edit1.Text := sl[2];
  finally
    sl.Free;
  end;
end;