Thema: Delphi Code tags umwandeln?

Einzelnen Beitrag anzeigen

Headi

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

Code tags umwandeln?

  Alt 17. Dez 2005, 21:41
Hallo leute,

kleine frage und zwar habe ich ein richedit, wenn dort jetzt ein spezieller tag vorkommt,
soll der Text unterschiedlich formatiert werden.
Formatierungen sind genaugenommen BBCodes.
Das heisst wenn ich z.B.

Code:
[B]hallo[/B]
eingebe, dann erkennt der das und macht hallo fett.

Ich habe mir mal überlegt wie ich das machen soll. Nur da gibt es noch einige probleme.

Ich habe mal folgenden code:

Delphi-Quellcode:
function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean;
var
  StartPos, Position, Endpos: Integer;
begin
  StartPos := 0;
  with RichEdit do
  begin
    Endpos := Length(RichEdit.Text);
    Lines.BeginUpdate;
    while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do
    begin
      Endpos := Length(RichEdit.Text) - startpos;
      Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]);
      Inc(StartPos, Length(SearchText));
      SetFocus;
      SelStart := Position;
      SelLength := Length(SearchText);
    end;
    Lines.EndUpdate;
  end;
end;

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  SearchForText_AndSelect(RichEdit1, 'Some Text');
end;
nur jetzt stosse ich schon auf das erste problem.
Wie kann ich dem sagen dass er nach * suchen soll?

SearchForText_AndSelect(RichEdit1, '[b]'+*+'[/b]'); geht natürlich nicht, da er * als variable und nicht als "irgend ein beliebiger Text" ansieht.

wie mache ich das am besten?
Und was mache ich wenn ich den text gefunden habe, soll ich den in eine variable speichern dann formatieren und wieder einfügen ohne die tags?

Bitte um hilfe

mfg headi
Pascal
  Mit Zitat antworten Zitat