Copy-Problem

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