Int64ToStr

[VintProg]

Нет не такое число!!! Вот:
18446744073709551615

[VintProg]

Вот DWORD
0..4294967295

Integer
со всем не то!

[Serge_Bliznykov]

тип данных Int64 вмещает в себя диапазон
Int64 –2^63..2^63–1 signed 64-bit


ваше:

18446744073709551615

выходит за пределы диапазона.

неужели трудно написать:

var BigI : Int64;
begin
  BigI := 18446744073709551615;

и убедиться, что компилятор НЕ КОМПИЛИРУЕТ данный код. т.к. константа выходит за пределы допустимого диапазона:

[Error] Unit1.pas(xx): Integer constant too large

[veniside]

начиная с 2005 (9.0) компилирует, и молча присваивает BigI значение -1

[Пепел Феникса]

помоему ТС нужен UINT64?

[Serge_Bliznykov]

Пепел Феникса, БИНГО!!!!

действительно.

function Int64ToStr(u64: uint64): string;
begin
  str(u64, result)
end;

procedure TForm1.Button1Click(Sender: TObject);
var big64 :UINT64;
begin
  big64 := 18446744073709551615;
  Edit1.Text := Int64ToStr(big64);
end;