Wie RTF aus Text entfernen / konvertieren?

[Nuclear-Ping]

Vielen Dank.

Aber wie schon gesagt: Die ganzen etlichen Texte befinden sich in einer Advantage-Datenbank, die ich entweder über SQL oder über die DBxyz-Komponenten ansteuern kann. Mit RE.LoadFromFile und RE.SaveToFile kann ich da nichts anfangen, ohne, dass ich eine Woche oder länger jeden Tag dran sitze und die Texte dann wieder manuell in die Datenbank einfüge.

Wenn es eine Möglichkeit wie folgender Pseudo-Code gäbe, wäre ich sehr froh:

Code:

procedure TForm1.DBRichTextToPlainText;
var
  a: Integer;
begin
  for a := 0 to Table.RowCount - 1 do
    with DBRichEdit do
      begin
        PlainText := FALSE;
        LoadTextFromDB (Row, Col);
        PlainText := TRUE;
        SaveTextToDB (Row, Col);
    end;
end;

Grüße,
Mario