![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#2
|
|||
|
|||
|
А это случаем не конвертация 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; |