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으로 바꿉니다.