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

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;