如何从剪贴板中选择特定行

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;