Strip Tags (PHP) in Delphi?

[DelphiPeter]

Hallo!

Gibt es in Delphi sowas wie Strip Tags in PHP? Ich möchte alle HTML Tags aus einem String entfernen.

Peter

[Sidewinder]

wie wäre es mit "Regular expressions", sorry hab keinen link oder sowas,
wo man tipps findet

[omata]

klick

[Namenloser]

Ich würde für sowas nicht gleich Regex benutzen (in delphi).

Pseudocode:

Delphi-Quellcode:

function Striptags(Input: String): string;
begin
  zaehler := 0;
  result := ''; // damit omata zufrieden ist. zur performanceoptimierung würde ich aber setlength benutzen (s.u.)
  for i := 1 to Input.Count do
  begin
    case Input[i] of
      '<': zaehler++;
      '>': zaehler--;
      elseif (zaehler = 0) then result := result+Input[i];
    end;
  end;
end;

Ist ja fast schon Delphicode... zur Performanceoptimierung würd ich aber die Länge des results schon am Anfang mit Setlength festlegen.

[Die Muhkuh]

Delphi kennt kein elseif

[Namenloser]

Es ist ja auch pseudocode. Delphi kentn auch kein ++

[omata]

Stellt sich nur die Frage warum du den zaehler initialisierst und Result nicht

Edit: Warum machst du wegen mir so einen Aufstand? Die Muhkuh hättest du mit einem Leerzeichen zufriedenstellen können.

Wenn du mit SetLength arbeitest, kannst du den String aber nicht so zusammenbauen, wie du das da pseudomäßig realisierst.