delphi - Delphiはリッチエディットで段落を選択します

Question

複数行の段落を選択する方法。段落は #10 + *#13? ではなく、番号で制限されます。クリックするか、段落の上をマウスで飛んで選択することを恐れます。

Answer 1

基本的に、TRichEdit の SelStart および SelLength パブリック プロパティを使用すると、リッチエディット コントロールで任意のテキストを選択できます。

そのため、必要に応じてテキストを分割することができます。段落かどうかに関係なく、プログラムでそのスライスを選択するだけです。

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;

これは、すべての SQL が空行で区切られている TMemo から SQL を取得することです。に置き換えるだけ#13#10#13#10です#13#10。