VPF::знак ^ - Форум программистов

Teleport

Дата 30.8.2008, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

недавно разбирал передачу переменной из dll в основное приложенмие. Вот код библиотеки

Код


library Project2;
uses
  SysUtils,
  Classes;

{$R *.res}
   var abc:integer;  // Вот эту переменку оPUBLUCуем

   function abr:integer;
   begin
    result:=abc;
   end;
exports abc,abr; // Вот так
begin
 abc:=20;
end.

а вот сам проект:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
     function abr:integer; external 'project2.dll';
var   abc:^integer; h:THandle;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
h:=LoadLibrary('project2.dll');
abc:=GetProcAddress(h,'abc');
caption:=inttostr(abc^)+' ';
abc^:=12;
caption:=caption+inttostr(abr)+' '+inttostr(abc^);
end;

end.

что означает ^? Слышал, что типа к перемной по адресу обращаются. Приведите более простой пример использования знака ^. На уровне одного приложения без dll.

--------------------

Christoph

Дата 30.8.2008, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

это указатель ...переменная в содержиться адрес байта памяти
А ^ это снятие значение по этому адрессу

Код


var
i: ^Integer;
begin
new(p);
p^:=5; // в область памяти поместили значение 5
dispose(p);

--------------------

THandle

Дата 30.8.2008, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Teleport, почитай книгу, там все написано и про указатели и про остальное.

http://www.delphilab.ru/content/view/17/46/

Teleport

Дата 30.8.2008, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

хорошо, спасибо

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »