Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: HTML Tags entfernen

    Delphi
    by tr909, 16. Jan 2008
  ich bekomme bei mkinzlers Variante eine Zugriffsverletzung an der Stelle :
  
  
  if p1 <> nil then
  begin
  p2 := StrScan( p1, '>');
  if p2 <> Nil then
  begin
  StrLCopy( pr, p, p1-p); <---- an dieser Stelle knallt es
  Result := Result + pr;
• Forum: Object-Pascal / Delphi-Language

  Re: HTML Tags entfernen

    Delphi
    by tr909, 16. Jan 2008
  Hatte gerade das gleiche Problem und habe nu provisorisch erst mal folgendes gebastelt und zusammengesucht
  
  function GiveSZ(HCode: string): Char;
  var
  i : Integer;
  begin
  Result := ' ';
  if (HCode = '&quot;') or (HCode = '"') then Result := '"';
  if (HCode = '&amp;') or (HCode = '&') then Result := '&';
  if (HCode = '&lt;') or (HCode = '<') then Result :=...