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.11 by h677, Sat Jun 25 11:27:21 2005 UTC revision 1.12 by h677, Sun Jul 31 10:27:25 2005 UTC
# Line 274  begin Line 274  begin
274          Result := AnsiPos(ZenToHan(Substr), ZenToHan(S));          Result := AnsiPos(ZenToHan(Substr), ZenToHan(S));
275  end;  end;
276  (*************************************************************************  (*************************************************************************
277   * FAT/NTFSのファイル名に許されない文字(\,/,*,>,<,|)を全角に置換する   * FAT/NTFSのファイル名に許されない文字(\,/,:,.,;,*,>,<,|)を全角に置換する
278   *************************************************************************)   *************************************************************************)
279  function ReplaseNoValidateChar( inVal : String): String;  function ReplaseNoValidateChar( inVal : String): String;
280  begin  begin
281          Result := CustomStringReplace(inVal, '\', '¥');          Result := CustomStringReplace(inVal, '\', '¥');
282      Result := CustomStringReplace(Result, '/', '/');          Result := CustomStringReplace(Result, '/', '/');
283            Result := CustomStringReplace(Result, ':', ':');
284            Result := CustomStringReplace(Result, '.', '.');
285        Result := CustomStringReplace(Result, ';', ';');
286          Result := CustomStringReplace(Result, '*', '*');          Result := CustomStringReplace(Result, '*', '*');
287          Result := CustomStringReplace(Result, '>', '>');          Result := CustomStringReplace(Result, '>', '>');
288          Result := CustomStringReplace(Result, '<', '<');          Result := CustomStringReplace(Result, '<', '<');

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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