So, ich brauche einen simplen Rtf->
Html Export (brauch´s eigentlich nur für bold und kursiv). Nun habe ich folgendes zusammengebastelt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
leng : integer;
boldin : boolean;
boldout : boolean;
begin
RichEdit1.SelectAll;
leng := RichEdit1.SelLength;
boldin := false;
boldout := false;
for i := 1 to leng do
begin
RichEdit1.SelStart := i;
RichEdit1.SelLength := 1;
boldout := true;
if fsbold in RichEdit1.SelAttributes.Style then
begin
boldout := false;
if not boldin then
RichEdit1.SelText := '[b]'+RichEdit1.SelText;
boldin := true;
end;
if boldin then
if boldout then
begin
RichEdit1.SelText := RichEdit1.SelText+'[/b]';
boldin := false;
end;
end;
end;
Meine Frage ist nun, ob es noch eleganter geht, bzw ob es eine Suchfunktion für Formatierungen in RTF gibt?
Gruß
tr909