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.8 by yoffy, Fri Aug 6 08:26:36 2004 UTC revision 1.9 by h677, Sat Mar 19 13:47:48 2005 UTC
# Line 29  uses Line 29  uses
29          function ZenToHan(const s: string): string;          function ZenToHan(const s: string): string;
30          function VaguePos(const Substr, S: string): Integer;          function VaguePos(const Substr, S: string): Integer;
31    
32        function ReplaseNoValidateChar( inVal : String): String;
33    
34  implementation  implementation
35  // ポインター&アセンブラによる高速ポス  // ポインター&アセンブラによる高速ポス
36  function StrPosEx(StrStart, StrEnd, SubstrStart, SubstrEnd: PChar): PChar;  function StrPosEx(StrStart, StrEnd, SubstrStart, SubstrEnd: PChar): PChar;
# Line 296  function VaguePos(const Substr, S: strin Line 298  function VaguePos(const Substr, S: strin
298  begin  begin
299          Result := AnsiPos(ZenToHan(Substr), ZenToHan(S));          Result := AnsiPos(ZenToHan(Substr), ZenToHan(S));
300  end;  end;
301    (*************************************************************************
302     * FAT/NTFSのファイル名に許されない文字(\,/,*,>,<,|)を全角に置換する
303     *************************************************************************)
304    function ReplaseNoValidateChar( inVal : String): String;
305    begin
306            Result := CustomStringReplace(inVal, '\', '¥');
307        Result := CustomStringReplace(Result, '/', '/');
308            Result := CustomStringReplace(Result, '*', '*');
309        Result := CustomStringReplace(Result, '>', '>');
310        Result := CustomStringReplace(Result, '<', '<');
311        Result := CustomStringReplace(Result, '|', '|');
312    end;
313  end.  end.

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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