請問一下各位大大，
由於目前公司在測試要不要轉換到2009，所以必須測試元件，
在安裝SMDBGrid的時候，除了亂碼的註解改掉之外，底下這段程式編譯會產生
[DCC Error] Smdbgrid.pas(7417): E2038 Illegal character in input file: '?' (#$3F)

可是在Delphi 5 底下卻會過，所以我想請問
有沒有人知道底下這段程式應該怎麼改。


[code delphi]
function TSMDBGrid.UpperAccentCase(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= 'a') and (Ch <= 'z') then
Dec(Ch, 32)
else
case Ch of
'?, '?: Ch := 'A';
'?, '?: Ch := 'E';
'?, '?: Ch := 'I';
'?, '? : Ch := 'O';
'?, '? : Ch := 'U';
'? : Ch := '?;
end;
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;[/code]

編輯記錄

2009 之 String 改默認為 UnicodeString 而非舊版時的 AnsiString.
故用 char 當然會 Error.

我將  此段先 Mark 後就可以安裝,但在 Delphi2009 中使用 TeditType 及 TdbeditType 有些問題


case Ch of

1. '?, '?: Ch := 'A';
2. '?, '?: Ch := 'E';
3. '?, '?: Ch := 'I';
4. '?, '? : Ch := 'O';
5. '?, '? : Ch := 'U';
6. '? : Ch := '?;
7. end;

// String = UnicodeString (不用改了)
// PChar --> PWideChar
UnicodeString): WideChar;

L: Integer;

Source, Dest: PWideChar;

begin

L := Length(S);

SetLength(Result, L);

Source := Pointer(S);

Dest := Pointer(Result);

while L <> 0 do

begin

Ch := Source^;

if (Ch >= 'a') and (Ch <= 'z') then

Dec(Ch, 32)

else

case Ch of

'?, '?: Ch := 'A';

'?, '?: Ch := 'E';

'?, '?: Ch := 'I';

'?, '? : Ch := 'O';

'?, '? : Ch := 'U';

'? : Ch := '?;

end;

Dest^ := Ch;

Inc(Source);

Inc(Dest);

Dec(L);

end;

end;

------
努力會更接近成功

這樣出現的還是底下的錯誤訊息
[DCC Error] Smdbgrid.pas(7452): E2038 Illegal character in input file: '?' (#$3F)

是因為，他看不懂問號嗎？？？