Platzhalter in StringReplace?

[marabu]

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