delphi IntToStrAnsi


本文整理自网络,侵删。

 
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 判断文件路径,不存在则建立

Delphi 两字符串之间添加分隔符

Delphi 让socket支持域名上线

Delphi中indy10 的idtcpserver断开客户端连接报错问题的解决办法

Delphi 获取内核地址的简单方法

Delphi 提取字符串左侧内容

Delphi 通过memorystream 传递image1数据

Delphi xe并行编程:ttask

Delphi使用文件拖放功能

Delphi bytetype-单双字节判断

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...