Subversion Repositories fastphp

Rev

Rev 16 | Rev 33 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16 Rev 25
Line 1... Line 1...
1 
unit FastPHPUtils;
 1 
unit FastPHPUtils;
2 
 
 2 
 
3 
interface
 3 
interface
4 
 
 4 
 
5 
uses
 5 
uses
6 
  SysUtils, StrUtils, Dialogs, IniFiles, Classes, Forms;
 6 
  Windows, SysUtils, StrUtils, Dialogs, IniFiles, Classes, Forms;
7 
 
 7 
 
8 
const
 8 
const
9 
  FASTPHP_GOTO_URI_PREFIX = 'fastphp://editor/gotoline/';
 9 
  FASTPHP_GOTO_URI_PREFIX = 'fastphp://editor/gotoline/';
10 
 
 10 
 
11 
function FastPHPConfig: TMemIniFile;
 11 
function FastPHPConfig: TMemIniFile;
Line 125... Line 125...
125 
        if ord(test[i]) < 32 then
 125 
        if ord(test[i]) < 32 then
126 
        begin
 126 
        begin
127 
          good := false;
 127 
          good := false;
128 
          break;
 128 
          break;
129 
        end;
 129 
        end;
- 
 
 130 
        {$IFDEF UNICODE}
130 
        if not CharInSet(test[i], ['a'..'z', 'A'..'Z', '.', '-', '_', '0'..'9']) then
 131 
        if not CharInSet(test[i], ['a'..'z', 'A'..'Z', '.', '-', '_', '0'..'9']) then
- 
 
 132 
        {$ELSE}
- 
 
 133 
        if not (test[i] in ['a'..'z', 'A'..'Z', '.', '-', '_', '0'..'9']) then
- 
 
 134 
        {$ENDIF}
131 
        begin
 135 
        begin
132 
          ini.WriteInteger('_Errors_', 'Contains unexpected character! ' + candidate, ini.ReadInteger('_Errors_', 'Contains unexpected character! ' + candidate, 0)+1);
 136 
          ini.WriteInteger('_Errors_', 'Contains unexpected character! ' + candidate, ini.ReadInteger('_Errors_', 'Contains unexpected character! ' + candidate, 0)+1);
133 
          good := false;
 137 
          good := false;
134 
          break;
 138 
          break;
135 
        end;
 139 
        end;