德尔福在财富中选择一个段落

如何在多行上选择一个段落。段落数量有限，而不是＃10 + *＃13？选择恐惧是通过点击或鼠标飞过该段落。德尔福在财富中选择一个段落

来源

2011-09-26 Mostafa OUHMID

@Andreas Rejbrand，段落对于TRichEdit来说是非常正式的。但是，我害怕飞行老鼠和机器人。 –

@Downvoter：对不起。我想我应该知道这一点。 –

@downvoter我认为安德烈亚斯正在问Mostafa段落的含义是受限于数量。这大概是段落的一些定义，与富文本定义不一致。 –

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

因此，您可以根据需要将段落分开，然后只选择段落，然后从程序中选择一段。

来源

2011-10-03 05:49:05 haimg

{********************************************************************} 
// 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-10 12:53:49

德尔福在财富中选择一个段落

回答

相关问题