Einzelnen Beitrag anzeigen

Benutzerbild von spacewolf
spacewolf

Registriert seit: 24. Apr 2003
Ort: Magdeburg
218 Beiträge
 
Delphi 7 Professional
 
#1

RichEdit und Enter im Text ?!?

  Alt 26. Jun 2005, 11:33
Moin,

sacht weiß jemand wie man im RichEdit feststellt ob hinter einem Wort ein Enter ist oder nicht ?
Ein Wort zu selektieren das schaff ich jetzt schon
Aber festzustellen ob nach dem Wort sich eine oder zwei Leerzeilen befinden, da weiß ich nicht wie es geht.
Und dann würd ich noch gern das Enterzeichen (\par) einfügen lassen...

Tja, falls jemand ne Lösung hat... wär toll

THANX and be blessed

say Andreas

Delphi-Quellcode:
var
  foundat : integer;
begin
  with RichEdit do
  begin
    foundat := FindText('Titel:',0,length(Text),[stMatchCase]);
    if foundat > 0 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length('Titel:');
    end;
  end;
end;
Andreas Göllner
("`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
"Ich kann Dir nur die Tür zeigen, durchgehen musst Du ganz allein."
Wer ist die Tür? Jesus!
  Mit Zitat antworten Zitat