德爾福在財富中選擇一個段落

如何在多行上選擇一個段落。段落數量有限，而不是＃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

德爾福在財富中選擇一個段落

回答

相關問題