Delphi中不兼容的char和widechar

我正在使用德爾福2007年，並與-r開關運行它。在我的電腦上一切正常。當我將代碼傳輸到另一臺計算機時，出現錯誤：

Incompatible types char and widechar.

也許我應該更改一些選項。

功能，使得這一問題：

function THcp.ConVertString(s: string): string; 
Var i:integer; 
    lstr:string; 
begin 
    lstr:=EmptyStr; 
    for i := 1 to Length(s) do 
    begin 
      case s[i] of 
      'Č': s[i]:='C'; 
      'č': s[i]:='c'; 
      'Ć': s[i]:='C'; 
      'ć': s[i]:='c'; 
      'Š': s[i]:='S'; 
      'š': s[i]:='s'; 
      'Đ': s[i]:='D'; 
      'đ': s[i]:='d'; 
      'Ž': s[i]:='Z'; 
      'ž': s[i]:='z'; 
      end; 
      lstr:=lstr+s[i]; 
    end; 
    Result:=lstr; 
end;

來源

2013-01-11 user1969258

這兩臺計算機是否具有相同的語言環境？ –

此函數對於堆分配非常低效。在函數的開始處分配lstr，然後在循環中修改結果。 –

最後一點。在報告錯誤消息時，請始終告訴我們錯誤發生在哪條線上。 –

這是我的假設。在代碼編譯的機器上，代碼中的非ASCII字符都是該機器語言環境的有效ANSI字符。但另一臺機器使用不同的語言環境，其中一些字符未包含在代碼頁的> = 128部分中。因此這些角色被提升爲WideChar，所以當然與AnsiChar不兼容。

來源

2013-01-11 10:51:54

原因可能非常多，原因David suggests。

如果聲明是這樣的功能：

function THcp.ConVertString(s: AnisString): AnsiString;

然後這個原因，但僅適用於在代碼中的字符常量，而不是輸入。通過使用字符順序來消除這些常量，就像我曾經在these routines中做過的那樣，那麼我想這會被編譯。

function AsciiExtToBase(Index: Byte): Byte; overload; 
const 
    Convert: array[128..255] of Byte = (
    //128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 
    // €  ‚ ƒ „ … † ‡ ˆ ‰ Š ‹ Œ  Ž   ‘ ’ 
    // E  , f "    ^  S <   Z   ' ' 
    69,129, 44,102, 34,133,134,135, 94,137, 83, 60,140,141, 90,143,144, 41, 41, 
    //147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 
    // 「 」 • – — ˜ ™ š › œ  ž Ÿ  ¡ ¢ £ ¤ ¥ 
    // " "  -  ~  s >   z Y  ! 
    34, 34,149, 45,151,126,153,115, 62,156,157,122, 89,160, 33,162,163,164,165, 
    //166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 
    // ¦ § ¨ © ª « ¬ * ® ¯ ° ± ² ³ ´ µ ¶ · ¸ 
    // |   c a <  -     2 3 ' 
    124,167,168, 99, 97, 60,172, 45,174,175,176,177, 50, 51, 41,181,182,183,184, 
    //185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 
    // ¹ º » ¼ ½ ¾ ¿ À Á Â Ã Ä Å Æ Ç È É Ê Ë 
    // 1  >    ? A A A A A A A C E E E E 
    49,186, 62,188,189,190, 63, 65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 
    //204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 
    // Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö × Ø Ù Ú Û Ü Ý Þ 
    // I I I I D N O O O O O x  U U U U Y 
    73, 73, 73, 73, 68, 78, 79, 79, 79, 79, 79,120,216, 85, 85, 85, 85, 89,222, 
    //223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 
    // ß à á â ã ä å æ ç è é ê ë ì í î ï ð ñ 
    //  a a a a a a a c e e e e i i i i o n 
    223, 97, 97, 97, 97, 97, 97, 97, 99,101,101,101,101,105,105,105,105,111,110, 
    //242 243 244 245 246 247 248 249 250 251 252 253 254 255 
    // ò ó ô õ ö ÷ ø ù ú û ü ý þ ÿ 
    // o o o o o /  u u u u y  y 
    111,111,111,111,111, 47,248,117,117,117,117,121,254,121); 
begin 
    if Index < 128 then 
    Result := Index 
    else 
    Result := Convert[Index]; 
end; 

function AsciiExtToBase(AChar: AnsiChar): AnsiChar; overload; 
begin 
    Result := Chr(AsciiExtToBase(Ord(AChar))); 
end; 

function AsciiExtToBase(const S: AnsiString): AnsiString; overload; 
var 
    P: PByte; 
    I: Integer; 
begin 
    Result := S; 
    P := @Result[1]; 
    for I := 1 to Length(Result) do 
    begin 
    P^ := AsciiExtToBase(P^); 
    Inc(P); 
    end; 
end;

來源

2013-01-11 11:34:31 NGLN

Delphi中不兼容的char和widechar

回答

相關問題