---
title: "Pekare till procedur"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/63745-pekare-till-procedur"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "Alpha II"
published: "2003-01-03T12:04:30.000Z"
updated: "2003-01-07T10:09:37.000Z"
replies: 1
views: 176
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/63745-pekare-till-procedur"
---

# Pekare till procedur

## #1 — Alpha II, 2003-01-03T12:04Z

Hur gör jag en pekare till en procedur och hur anropar jag då proceduren?

Permalänk: https://www.webforum.nu/p/63745

## #2 — jt, 2003-01-07T10:09Z

\>Hur gör jag en pekare till en procedur och hur anropar jag då proceduren?
Genom att använda @.

Ett litet exempel:

procedure BProc(i: Integer);
begin
  ShowMessage(IntToStr(i));
end;

procedure AProc(Proc: Pointer);
type
  TBProc = procedure(i:Integer );
var
  Test: TBProc;
begin
  Test := Proc;
  Test(1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AProc(@BProc);
end;

Permalänk: https://www.webforum.nu/p/903843

---

Tråden på webben: https://www.webforum.nu/amne/programmering/63745-pekare-till-procedur