Wenn ich jetzt diesen Code nehme:
Delphi-Quellcode:
procedure TForm1.SynMemo1KeyPress(Sender: TObject; var Key: WideChar);
begin
text := SynMemo1.Text;
Ln := SynMemo1.CaretY;
CurPosition := SendMessage(SynMemo1.handle,EM_LineIndex,Ln,0);
CurPosition := SynMemo1.SelStart-CurPosition;
Caption := '('+IntToStr(CurPosition)+') "'
+Copy(SynMemo1.Text, CurPosition-2, 3)+'"'; // nur zum gucken
if Copy(SynMemo1.Text, CurPosition-2, 3) = 'ABC' then // ****
SynMemo1.Text := SynMemo1.Text+'DEF';
SynMemo1.Refresh;
end;
und direkt am Anfang "ABC" eintippe, passiert nix, gebe ich ein zusätzliches Leerzeichen ein, so kommt DEF.
Aber das ist es ja auch nicht
