delphiXE Implicit string cast from 'AnsiString' to 'string'

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  s:   string;

begin

    s :=    ClientSocket.Receiveln  ;
  while s <> '' do
  begin
    memo1.lines.Add(  s );
    s :=    ClientSocket.Receiveln  ;
  end;

end;

delphi2010编译时出现警告信息：[DCC Warning] Unit1.pas(*): W1057 Implicit string cast from 'AnsiString' to 'string'

是由于string和AnsiString之间转换的原因.

   解决办法：

  1.  变量s定义为ansistring:

var
  s:   ansistring;

  2. 使用s时用string()函数转换：memo1.lines.Add(  string(s) );