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) );