Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: HTML Tags entfernen

    Delphi
    by mkinzler, 17. Jan 2008
  function StripTags( line: string; c1, c2: Char): string;
  var
  p, p1, p2, pr, pt: PChar;
  res: string;
  Buf: string;
  i: Integer;
  begin
  p:= PChar(line);
  SetLength( Buf, Length( line));
  while( p <> nil) and ( p <> '') do
• Forum: Object-Pascal / Delphi-Language

  Re: HTML Tags entfernen

    Delphi
    by mkinzler, 16. Jan 2008
  Optimierte Version, die einzelne < oder > erkennt:
  function StripTags( line: string): string;
  var
  p, p1, p2, pr, pt: PChar;
  begin
  p:= PChar(line);
  while( p <> nil) and ( p <> '') do
  begin
  p1 := StrScan( p, '<');
  if p1 <> nil then
• Forum: Object-Pascal / Delphi-Language

  Re: HTML Tags entfernen

    Delphi
    by mkinzler, 16. Jan 2008
  Allgemeine Lösung:
  function StripTags( line: string): string;
  var
  p, p1, p2, pr: PChar;
  begin
  p:= PChar(line);
  while( p <> nil) and ( p <> '') do
  begin
  p1 := StrScan( p, '<');
  if p1 <> nil then