Copy-Problem

[Tommy1988]

Guten Abend.. ich habe ein kleines Problem..

Folgender Code bewirkt, dass wenn ich eingegeben HABE automatisch hinten dran gehangen wird:

Delphi-Quellcode:

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

gehe ich mit dem cursor jetzt aber zwischen und und drücke ENTF
so sieht der Text folgendermaßen aus:
'/b>'

Was kann man dagegen machen?
Ich hab es schon so versucht:

Delphi-Quellcode:

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

Wenn das 2. Copy also nicht [/b] ist soll da das [/b] eingefügt werden. Nur es klappt leider nicht

Achso, vielleicht sollte ich sagen, dass der Code in einer Extra Prozedur steht die beim
"SynMemo1Change" aufgerufen wird.

[grenzgaenger]

@Tommy1988: sorry, komm jetzt nicht mit... was für 'n copy ist denn das... das keinen index auf das gefundene zeichen zurückliefert....?????

[Tommy1988]

Zitat:

das keinen index auf das gefundene zeichen zurückliefert....?????

Keine Ahnung was Du meinst .. Sorry

[Dani]

Ich vermute mal, dass das Ereignis erst aufgerufen wird, nachdem sich der Text geändert hat. Du findest dann kein "[/b]", weil da nur noch ein "/b> steht.

[Tommy1988]

Zitat:

das keinen index auf das gefundene zeichen zurückliefert....?????

Was heißt das denn jetzt?

Zitat:

nachdem sich der Text geändert hat

Ich habe es schon anders verucht, klappt aber nicht.

[Dani]

Ich glaube grenzgaenger verwechselt copy mit pos oder so

Jedenfalls könntest du noch versuchen, in OnKeyDown statt in OnChange die Tags zu ergänzen. Dort kannst du entscheiden, ob die gedrückte Taste ein ">" ist oder etwas Anderes.

[dominikkv]

oder du frägst ab ob entf gedrückt wurde

[Tommy1988]

Das Problem ist ja auch generell das, dass wenn ich
nach eine Leerstelle mache, und diese mit Backspace zurückziehe, wieder drangehangen wird, das liegt aber am OnChange. Nur ich wüsst nicht wie man das in einem anderem Event machen könnte.

[Blackheart]

Am einfachsten dürfte es doch sein zu prüfen ob hinter bereits ein steht.

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  if (Copy(Memo1.Text, Memo1.SelStart-2, 3) = '[b]') and not
  (Copy(Memo1.Text, Memo1.SelStart+1, 4) = '[/b]') then
begin
  Memo1.SelText := '[/b]';
  Memo1.SelStart := Memo1.SelStart-4;
end;
end;