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 :cry:

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....????? :gruebel: :gruebel: :gruebel: :gruebel: :gruebel: :gruebel: :gruebel: :gruebel:

[Tommy1988]

Zitat:

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

Keine Ahnung was Du meinst .. Sorry :wiejetzt:

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

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Langsam solltest du wissen, dass Delphi-Fragen NICHT hier her gehören. :?

[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 :mrgreen:

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 :wink:

[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;

[Tommy1988]

Zitat:

Zitat von 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;

Das ist das selbe wie

Delphi-Quellcode:

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

;)

Andere Code, aber die selbe Funktion. Es ändert sich nichts, wenn man ENTF zwischen > und < drückt.

[Blackheart]

Getestet und für gut befunden ! :thumb:
Bei Mir funktionierts jedenfalls.

[Tommy1988]

Ne, so meinte ich das nicht ..

hat man den Cursor zwischen und also da; >'<, und drückt ENTF, wird /b> hinten dran gehangen .. das wollte ich verhindern, nur ENTF zu unterdrücken ist nicht so gut.

[Blackheart]

Zitat:

Zitat von Tommy1988

Ne, so meinte ich das nicht ..

hat man den Cursor zwischen und &lt;/b&gt; also da; &gt;'&lt;, und drückt ENTF, wird /b&gt; hinten dran gehangen .. das wollte ich verhindern, nur ENTF zu unterdrücken ist nicht so gut.

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>
Genau das wird ja verhindert, aber Ich gebs auf ist wahrscheinlich zu schwer das mal zu testen. :gruebel: 
</b>') then 
begin 
  Memo1.SelText := '

[/b]

Delphi-Quellcode:

'; 
  Memo1.SelStart := Memo1.SelStart-4; 
end; 
end;