Знак @

[fredwriter]

Здравствуйте! Я разбираюсь в коде, задали такое задание. У меня такой вопрос, что значит знак @ в выделеной мною строчке. Написана функция proc2 типа DWORD, причём ctdcall
И она вызывается в WinApi функции в виде параметра этой функции и перед ней стоит знак @. Первый раз с таким сталкиваюсь.

function proc2(dd:dword):dword; stdcall;//ïðîöåäóðà âûíèìàþùåãî ïîòîêà
var i,j,X,ip:integer;
     id:dword;
begin
  id := GetCurrentThreadId();//ïîëó÷àåì èäåíòèôèêàòîð ïîòîêà
  ip := 0;
  for i := 1 to 5 do//Èùåì íîìåð ïîòîêà
    if d[i] = id then
      ip := i;
  for i := 1 to 15 do//ñìîòðèì ñëó÷àéíûé ýëåìåíò ìàññèâà
  begin
    //Ñîñòîÿíèå ñåìàôîðà
    writeln(ip,' Can enter:',Sem.Count,' Are waiting:',Sem.waiting);
    flush(output);
    writeln(ip,' Waiting');
    WaitForMySemaphore(Sem);//Æä¸ì ñåìàôîðà
    sleep(1000);
    writeln(ip,' Can enter:',Sem.Count,' Are waiting:',Sem.waiting);
    flush(output);
    j := random(10) + 1; //Ìåñòî
    x := Q[j];//Âûíèìàåì ÷èñëî èç ìàññèâà
    //Êàêîå ÷èñëî ìû ïîñìîòðåëè
    writeln(ip,' Thread#',ip,' has got a number from place:',j,'-',X);
    flush(output);
    writeln(ip,' Can enter:',Sem.Count,' Are waiting:',Sem.waiting);
    flush(output);
    sleep(1000);
    ReleaseMySemaphore(Sem);//Îñâîá. ñåìàôîð
    writeln(ip,' Releasing');
    writeln(ip,' Can enter:',Sem.Count,' Are waiting:',Sem.waiting);
    flush(output);
  end;
  proc2 := 0;
end;

Begin
for i := 1 to 3 do
  begin
    h[i] := CreateThread(nil,0,@proc1,nil,0,d[i]);//Ñîçäà¸ì 3 êëàäóùèõ ïîòîêà
    if h[i] = 0 then
      writeln(GetLastError)
    else
  end;
  for i := 4 to 5 do
  begin
    h[i] := CreateThread(nil,0,@proc2,nil,0,d[i]);//Ñîçäà¸ì 2 âûíèìàþùèõ ïîòîêà
    dwError := GetLastError;
    if h[i] = 0 then
      writeln(dwError)
    // FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM |FORMAT_MESSAGE_ALLOCATE_BUFFER, nil, dwError; MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US); hlocal; 0; nil )
    else
  end;
end.

[russian-stalker]

Если память не изменяет, то @, в паскале, - это взятие адреса. То есть мы просто передаем адрес функции в функцию.

[fredwriter]

Спасибо за ответ, то есть после создания функции под неё выделяется память, и мы можем сослаться на функцию, как на переменную типа a^?

[vasek123]

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

Спасибо за ответ, то есть после создания функции под неё выделяется память, и мы можем сослаться на функцию, как на переменную типа a^?

Вот простенький пример в Delphi, разбирайтесь:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  p:pointer;//Объявляем указатель
  s:string;//Объявляем переменную типа string
begin
  s:='Привет Форумчане!';//Присваиваем переменной значение
  p:=@s;//Присваиваем указателю ссылку на данную переменную
  Edit1.Text:=PChar(p^);
  p:=nil;//Очищаем значение указателя
end;

end.

Вроде, более понятно об этом рассказал.... В "плюсах" действия с указателями и ссылками практически идентичны.

[russian-stalker]

Мой пример работы с указателями на функции:

procedure a(s:string);
begin
  showmessage('From function a: '+s);
end;

procedure c(s:string);
begin
  showmessage('From function c: '+s);
end;

procedure b(p:Pointer);
var
   s:string;
begin
  s:='qwerty';
  asm
    mov eax, s;
    call p;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  b(@a);
  b(@c);
end;

[fredwriter]

А знак $ что означает, тоже встречал в кодах?
P.S.
Спасибо за примеры

[russian-stalker]

Ставится перед числом в шестнадцатеричной система счисления. Например:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  i := $10;//10 в шестнадцатеричной система счисления = 16 в десятичной системе счисления 
  ShowMessage(IntToStr(i));
end;

[fredwriter]

[QUOTE=russian-stalker;630313]

Ставится перед числом в шестнадцатеричной система счисления. Например:

Блин, я же это знаю, и что спрашивал, забыл, что знаю