Guten Morgen,
ein einfaches IF verhindert schließende Tags, wo sie fehl am Platz sind:
Delphi-Quellcode:
function TaggedString(const s: string): string;
var
i: Integer;
begin
i := LastDelimiter('*', s);
if i > 0
then Result := StuffString(s, i, 1, '[i]') + '[/i]'
else Result := s;
end;
Der beim Aufruf übergebene Text sollte dabei schon den Regeln für
HTML-Text gehorchen.
Grüße vom marabu