Delphi在richhedit中选择一个段落

Question

如何选择多行段落。段落受数量限制，而不是#10 + *#13?

Answer 1

基本上如果你使用你的TRichEdit的SelStart和SelLength公共属性，你可以在你的richit控件中选择任何你想要的文本。

所以，你可以把你的文本分割成你想要的段落，或者不是段落，然后通过编程选择其中的一部分

Answer 2

{********************************************************************}
// Nombre de la funcion: TI2FStrings.GetCursorSQL
// Explicación: Obtiene el párrafo donde está situado el cursor.
//
//  Usuario      Fecha      Modificación
// ------------ ---------- ------------------------------------------
// drodriguez   11/08/2005 Creación
{********************************************************************}
class function TI2FStrings.GetCursorSQL(Text: string; CursorPos: Integer): string;
var
  LastPos, iPos: Integer;
  IniPos, FinPos: Integer;
Begin
  iPos:= 1;
  Repeat
    LastPos:= iPos;
    iPos:= PosEx(#13#10#13#10, Text, iPos);
    if (iPos <> 0) then Inc(iPos, 2);
  until (iPos = 0) or (CursorPos < iPos - 1);
  if (iPos = 0) then iPos:= Length(Text)
  else Dec(iPos, 2);
  FinPos:= iPos;
  IniPos:= LastPos;
  Result:= Trim(Copy(Text, IniPos, FinPos - IniPos + 1));
end;

这是从TMemo中获取SQL，其中每个SQL都由空行分隔。将#13#10#13#10替换为#13#10