rtf2html

Schritt 2

Und jetzt beginnt die eigentliche Arbeit, der Code, der aufgerufen wird, wenn „Generiere“ angeklickt wird.
Folgende Variablen werden benötigt:

var loop, loop2: integer; // Counter
    s, s2: string; // Strings, zur Bearbeitung
    fett, kursiv, us, bullet: boolean; // welche Attribute hatte
                                       // das letzte Zeichen?
    Aktcolor: TColor; // aktuelle Farbe
    aktSize: integer; // aktuelle Schriftgröße
    AktLine: Integer; // welche Zeile bearbeiten wir
    Align: TAlignment; // wie ist die Ausrichtung
    ReihenFolge: TList; // in welche Reihenfolge werden die Tags bearbeitet
     // 1= fett
     // 2 = kursiv
     // 3 = unterstrichen
     // 4 = Color
     // 5 = Size
     // 6 = li

Die genaue Bedeutung der Variablen wird an der ensprechenden Stelle erklärt.
Außerdem benötigen wir noch eine kleine Hilfsfunktion, die wir zwischen dem VAR und dem BEGIN einfügen:

function CalculateSize(pt:integer):integer;
 // Umrechung der Schriftgröße in Pixel in ein HTML-Format
 // Die Einteilung ist völlig willkürlich und wurde von mir so gewählt.
 // Wer etwas anderes will, kann das hier ändern
begin
  case pt of
    0..7: result:=1;
    8..10: result:=2;
    11..13: result:=3;
    14..16: result:=4;
    17..20: result:=5;
    21..24: result:=6;
    else result:=7;
  end;
end; // CalculateSize;

Wie schon in der Komentierung angedeutet, ist die Einteilung der Schriftröße von mir völlig willkürlich gewählt. Wer etwas anderes möchte kann dies einfach einstellen.