Как вывести в showmessage адрес переменной

[monrus]

Как вывести в showmessage адрес переменной

типа:
var
i:integer;
begin
ShowMessage(@i);
end;

знаю, что неправильно, а как?

[zubr]

ShowMessage(IntToStr(Integer(@i)));
Хотя безопаснее и удобнее это делать в консоле. Для этого в код файла проекта вставляешь {$APPTYPE CONSOLE}:

Код:

program Project1;
{$APPTYPE CONSOLE}

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

а вместо ShowMessage делаешь Writeln(Integer(@i));

[monrus]

Спасибо, zubr, за быстрый ответ, а почему безопаснее и удобнее это делать в консоли?

а как в ShowMessage вывести pointer (именно в шестнаднатеричном формате без преобразования)

procedure TForm1.Button1Click(Sender: TObject); var i,l:integer; p:pointer; begin i:=123; l:= Integer(@i); p:=@i; ShowMessage((p)); // таким вот типа образом end; end.

[zubr]

почему безопаснее и удобнее это делать в консоли?

Как я понимаю, тебе ShowMessage надо делать для отладки. Теперь представь момент, что ты ShowMessage вставляешь в событие OnPaint - в лучшем случае будет подвешена программа, а то и Delphi, если запускаешь из Delphi, так как программа ждет пока пользователь нажмет на Ok.

как в ShowMessage вывести pointer (именно в шестнаднатеричном формате без преобразования)

Код:

ShowMessage(IntToHex(Integer(p), 8));