Int64ToStr

[VintProg]

Есть такая функция которая конвертирует в 8 байтовое число в строку?

[Serge_Bliznykov]

напишите свою функцию.
например, такую

function Int64ToStr(i64: int64): string;
begin
  str(i64, result)
end;

[VintProg]

Не фига не работает она!!!

[eoln]

IntToStr справляется же с этим.
VintProg, нормально работает.

P.S. Также можно FmtStr(s, '%d', [i]);

[Serge_Bliznykov]

Сообщение от eoln

IntToStr справляется же с этим. Проверил - работает.

угу. точно. работает.
не знаю, почему мне втемяшилось, что с Int64 у IntToStr проблемы...

Сообщение от VintProg

Не фига не работает она!!!

procedure TForm1.Button1Click(Sender: TObject);
var BigI : Int64;
begin
  BigI := 6789029496729512345;
  Edit1.Text := IntToStr(BigI);
  if IntToStr(BigI) <> Int64ToStr(BigI) then
     ShowMessage('Ошибка и катастрофа!');
end;

в чём выражается "нерабочесть" ?!

[VintProg]

да не фурычит!!!

[Человек_Борща]

Обоснуйте кодом свое "не фурычит". Как вы это определяете?

[VintProg]

Как как:
IntToStr($FFFFFFFFFFFFFFFF); Вот так!

[grafgrial]

Сообщение от VintProg

Как как:
IntToStr($FFFFFFFFFFFFFFFF); Вот так!

Сколько должно получиться? не -1?
Вроде все работает Int64Tostr.rar

[Serge_Bliznykov]

grafgrial, ну разумеется -1. Int64 это же целое число СО ЗНАКОМ!


VintProg, рассмотрите следующий код:

var BigI : Int64;
begin
  BigI := - 1;
  Edit1.Text :=   IntToHex(BigI, 20);