Thema: Delphi Code tags umwandeln?

Einzelnen Beitrag anzeigen

Headi

Registriert seit: 17. Nov 2005
Ort: Weinfelden
101 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Code tags umwandeln?

  Alt 18. Dez 2005, 15:36
Zitat von MasterEvil:
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
hmm... das geht irgendwie nicht also es passiert nichts.
was muss ich denn hinzufügen um die tags zu löschen?

Also ich komm da irgendwie nicht so mit den formaten zu recht,
was bekomme ich bei RichEdit.SelLength:=(EndPos-StartPos)-3;

Ich denke mal das ist die länge des Textes der Formatiert werden muss,
Nur wie kann ich den jetzt auch formatieren, oder erst markieren??


@Omata:

SynEdit habe ich mir schon angeschaut, aber versteh das nicht so ganz wie ich da ne eigene liste machen kann...
Hab mir auch schon den SynGen oder wie der heisst angeschauen aber krieg das irgendwie nicht hin.
Pascal
  Mit Zitat antworten Zitat