Zitat von
renekr:
...aber wenn ich als 1. Zeichen das - eingebe bekomm i ne Zugriffsverletzung.
ok, kleiner Fehler meinerseits, weil: SelStart ist natürlich 0-basierend, während die .Text-Property ein ganz normaler String ist, also sein erster Char mit [1] beginnt. Von daher sollte es also in etwa so stimmen:
Delphi-Quellcode:
// wären jetzt gerade 2 '-' -Chars hintereinander?
if (Key = '-')
and (Memo1.SelStart > 0)
and (Memo1.Text[Memo1.SelStart] = '-') then
// und wenn ja,
// befinden diese sich NICHT am Text- bzw. an einem Zeilenanfang?
if (Memo1.SelStart > 1)
and (Memo1.Text[Memo1.SelStart-1] <> #10) then ....