本文整理自网络,侵删。
function IntToStrAnsi(N : Integer) : AnsiString;var I : Integer; Buf : array [0..11] of AnsiChar; Sign : Boolean;begin if N >= 0 then Sign := FALSE else begin Sign := TRUE; if N = Low(Integer) then begin Result := '-2147483648'; Exit; end else N := Abs(N); end; I := Length(Buf); repeat Dec(I); Buf[I] := AnsiChar(N mod 10 + $30); N := N div 10; until N = 0; if Sign then begin Dec(I); Buf[I] := '-'; end; SetLength(Result, Length(Buf) - I); Move(Buf[I], Pointer(Result)^, Length(Buf) - I);end;
相关阅读 >>
Delphi中indy10 的idtcpserver断开客户端连接报错问题的解决办法
Delphi 通过memorystream 传递image1数据
更多相关阅读请进入《Delphi》频道 >>