TStringList => Anordnung der Einträge

[Progman]

Insert('CDE', text, CurPosition) , denn +3 ist doch schon im Nirvana

[Tommy1988]

Delphi-Quellcode:

if Copy(SynMemo1.Text, CurPosition-2, 3) = 'ABC' then // ****
Insert('CDE', text, CurPosition);

Ich hab den total falschen Ansatz

Das klappt alles nicht ..

[Progman]

Lass dir doch mal Copy(SynMemo1.Text, CurPosition-2, 3) in ein Label oder Caption schreiben, was da genau drinsteht, und mal anstelle von Insert einfach nur Memo.Text := Memo.Text+'DEF'.
Und vielleicht noch Memo.Refresh aufrufen, falls nix zu sehen ist.

[Tommy1988]

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

[Progman]

Delphi-Quellcode:

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if copy(Memo1.Text,Memo1.SelStart-2,3)='ABC' then begin
    Memo1.Text:=Memo1.Text+'DEF';
    Memo1.SelStart:=Length(Memo1.Text);
  end;
end;

Das funzt bei mir mit nem normalen TMemo.

[Tommy1988]

Delphi-Quellcode:

Caption := '('+IntToStr(CurPosition)+') "'
+Copy(SynMemo1.Text, CurPosition-2, 3)+'"';

 if Copy(SynMemo1.Text, CurPosition-2, 3) = '[b]' then
 begin
  SynMemo1.SelText := '[/b]';
 end;

Ds ist es soweit.

Es steht aber in einem unschönen TIMER .. von daher.. das Problem, ist, wenn es im KeyUp/Down steht, kommt es doppelt

[Progman]

Dass es doppelt kommt, hat seine Ursache darin, dass bei Loslassen der Shift-Taste auch KeyUp ausgelöste wir, und das TMemo, brav wie es ist, hängt eben noch mal 'DEF' dran. Deshalb hab ich ja nach anhängen von 'DEF' auch gleich den Cursor dahinter gesetzt. Dann trifft die Bedingung nicht mehr zu und es passiert nix.
SelStart repräsentiert immer die Cursor-Position, wenn kein Text selectiert ist, daher Memo1.SelStart:=Length(Memo1.Text); . Dann sind die drei Zeichen davor ja nicht 'ABC'
Also nach dem Anhängen gleich Cursor dahinter setzen.