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 7 中的随机函数

Delphi 让scrollbox响应鼠标的滚动消息

Delphi 获取打开文件的pid

crc8unt.pas

Delphi idhttpserver接收http get请求解码问题

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi判断字符串是否是数字、字母、大小写字母

Delphi 获得memo、richedit的光标位置

Delphi tms web core 判断是否包含汉字

Delphi 判断文件是否存在

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



打赏

取消

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

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

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

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

评论

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