Memo Feld Eingabe

[TStringlist]

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 ....