Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/MojuUtils.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.20 by h677, Fri Dec 9 17:06:30 2005 UTC revision 1.21 by h677, Wed Feb 1 15:23:49 2006 UTC
# Line 32  uses Line 32  uses
32          //<font>タグを全て削除する          //<font>タグを全て削除する
33          function DeleteFontTag( inSource : string) : string;          function DeleteFontTag( inSource : string) : string;
34          function RemoveToken(var s: string;const delimiter: string): string;          function RemoveToken(var s: string;const delimiter: string): string;
35            // 無害化(& -> &amp; " -> &auot; に変換する)
36            function Sanitize(const s: String): String;
37            // 無害化解除(&amp; -> & &auot; -> " に変換する)
38            function UnSanitize(const s: String): String;
39    
40  implementation  implementation
41  // ポインター&アセンブラによる高速ポス  // ポインター&アセンブラによる高速ポス
# Line 358  begin Line 362  begin
362                  s := '';                  s := '';
363          end;          end;
364  end;  end;
365    //! 無害化(& -> &amp; " -> &auot; に変換する)
366    function Sanitize(const s: String): String;
367    begin
368            Result := CustomStringReplace(s, '&', '&amp;');
369            Result := CustomStringReplace(Result, '"', '&quot;');
370    end;
371    //! 無害化解除(&amp; -> & &auot; -> " に変換する)
372    function UnSanitize(const s: String): String;
373    begin
374            Result := CustomStringReplace(s, '&quot;', '"');
375            Result := CustomStringReplace(Result, '&amp;', '&');
376    end;
377    
378  end.  end.

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26