delphi2007升级到XE 必须修改的地方

源码资源网

delphi2007升级到XE 必须修改的地方188风格

1. procedure SendGameCenterMsg(wIdent: Word; sSendMsg: AnsiString);
   
2. var
   
3.   SendData                  : TCopyDataStruct;
   
4.   nParam                    : Integer;
   
5. begin
   
6.   nParam := MakeLong(Word(tDBServer), wIdent);
   
7.   SendData.cbData := Length(sSendMsg) + 1;
   
8.   GetMem(SendData.lpData, SendData.cbData);
   
9.   StrCopy(SendData.lpData, PAnsiChar(sSendMsg));
   
10.   SendMessage(g_dwGameCenterHandle, WM_COPYDATA, nParam, Cardinal(@SendData));
    
11.   FreeMem(SendData.lpData);
    
12. end;

复制代码

3K风格

1. procedure SendGameCenterMsg(wIdent: Word; sSendMsg: string);
   
2. var
   
3.   SendData: TCopyDataStruct;
   
4.   nParam: Integer;
   
5. begin
   
6.   if g_dwGameCenterHandle <> 0 then
   
7.   begin
   
8.   nParam := MakeLong(Word(tDBServer), wIdent);
   
9.     SendData.cbData := Length(AnsiString(sSendMsg)) + 1;
   
10.   GetMem(SendData.lpData, SendData.cbData);
    
11.     Move(PAnsiChar(AnsiString(sSendMsg))^, PAnsiChar(AnsiString(SendData.lpData))^, Length(AnsiString(sSendMsg)) + 1);
    
12.   SendMessage(g_dwGameCenterHandle, WM_COPYDATA, nParam, Cardinal(@SendData));
    
13.   FreeMem(SendData.lpData);
    
14.   end;
    
15. end;

复制代码

BLUE风格

1. procedure SendGameCenterMsg(wIdent: Word; sSendMsg: string);
   
2. var
   
3.   SendData                  : TCopyDataStruct;
   
4.   nParam                    : Integer;
   
5. begin
   
6.   if g_dwGameCenterHandle <> 0 then begin
   
7.     nParam := MakeLong(Word(tDBServer), wIdent);
   
8.     SendData.cbData := Length(AnsiString(sSendMsg)) + 1;
   
9.     GetMem(SendData.lpData, SendData.cbData);
   
10.     Move(PAnsiChar(AnsiString(sSendMsg))^, PAnsiChar(AnsiString(SendData.lpData))^, Length(AnsiString(sSendMsg)) + 1);
    
11.     SendMessage(g_dwGameCenterHandle, WM_COPYDATA, nParam, Cardinal(@SendData));
    
12.     FreeMem(SendData.lpData);
    
13.   end;
    
14. end;

复制代码