Показать сообщение отдельно
  #2  
Старый 24.03.2014, 01:34
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,029
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А это случаем не конвертация Integer в String?
Проверь примерно такой фокус:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  I : ^Integer;
  P : PChar;
begin
  Randomize;
  GetMem(I,SizeOf(Integer));
  I^ := Random(2147483647);
  P := Pointer(I);
  ShowMessage('String(Integer(' + IntToStr(I^) + ') = ' + StrPas(P));
end;
Ответить с цитированием