0

如何选择多行的段落。段落受数量限制，不受#10 + *#13 限制？选择害怕是通过单击或鼠标飞过段落。

4

2 回答 2

0

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

因此，您可以根据需要拆分文本，无论是否为段落，然后只需以编程方式选择其中的一部分。

于 2011-10-03T05:49:05.723 回答
0 
{********************************************************************}
// 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.

于 2011-10-10T12:53:49.960 回答