Thema: Delphi Code tags umwandeln?

Einzelnen Beitrag anzeigen

Benutzerbild von MasterEvil
MasterEvil

Registriert seit: 12. Feb 2005
Ort: Hannover
234 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Code tags umwandeln?

  Alt 17. Dez 2005, 23:40
Nabend,

soll er dabei die Tags gleich entfernen oder soll er einfach nur das zwischen den Tags fett machen?
Mit Pos kriegst du ja raus wo er anfängt und ebenfalls auch wo er aufhört (dort halt +3).
Danach setzt du die selection (glaub jedenfalls das beim RichEdit die Position gleichbedeutend ist mit der Menge der Zeichen) und machst sie mit SelAttributes fett.
Wenn du die Tags weg haben willst, musst du ja die nur entfernen und die Positionen umsetzen.

Ist nur kurz hingekritzelt und ungetestet:
Delphi-Quellcode:
while Pos(RichEdit.Text,'[a]')>0 do
begin
  StartPos:=Pos(RichEdit.Text,'[a]');
  EndPos:=Pos(RichEdit.Text,'[/a]');
  if (StartPos>0) and (EndPos>0) then
  begin
    RichEdit.SelStart:=StartPos+3;
    RichEdit.SelLength:=(EndPos-StartPos)-3;
    //Hier Code zum entfernen der 2 Tags einfügen
  end;
end;
greetz
Steffen
  Mit Zitat antworten Zitat