In Strings einen Zeilenumbruch ermitteln

[Infamous]

Hi,

ich habe ein Memofeld indem jeweils immer ein Wort ausgewählt wird. Wenn nach diesem Wort ein Zeilenumbruch folgt, soll er Anweisung xy ausführen. Wie krieg ich das hin?

Delphi-Quellcode:

If Wort[length(Wort) + 1] = #13#10 then NeueZeile := True;

...war mein bisheriger Versuch.

[sirius]

Wo nimmst du denn das Wort her?
Du kannst mit "copy" dir eine Teilstring erzeugen und den auf #13#10 überprüfen.

[Infamous]

"Wort" ist der ausgewählte Text im Memofeld - mit SelStart und SelLength. Also wäre der Zeilenumbruch an der Stelle length(Wort) + 1. Copy nützt hier nichts, oder?

[sirius]

na dann so:

Delphi-Quellcode:

wort:=copy(memo1.Text,memo1.SelStart,memo1.SelLength);
ret:=copy(memo1.Text,memo1.SelStart+memo1.SelLength+1,2);
if ret=#13#10 then showmessage('Hurra');

[Infamous]

Danke, funktioniert (mit - 1, nicht +).

[himitsu]

Code:

012345679
  wort**
  2      = SelStart
  1234   = SelLength
      6  = SelStart + SelLength

Zitat:

Zitat von Infamous

Danke, funktioniert (mit - 1, nicht +).

ich hätt' jetzt gesagt "nichts von Beidem" :gruebel:

Delphi-Quellcode:

ret := Copy(Memo1.Text, Memo1.SelStart + Memo1.SelLength, 2);