Poniter einer procedure übergeben

[Christian18]

Hallo,

wie kann ich in Delphi den Pointer einer Procedure übergeben?

MFG Christian18

[Apollonius]

Den Pointer einer Prozedur übergeben? Was meinst du? Als Parameter? Einen Pointer, einen Zeiger oder einen Prozedurzeiger?

[Christian18]

ich habe eine funktion, der ich eine procedure übergeben soll.

[Pascal Fehler] Unit1.pas(46): E2010 Inkompatible Typen: 'Pointer' und 'procedure, untyped pointer or untyped parameter'

[Apollonius]

Meine Glaskugel ist gerade so vernebelt.

[mkinzler]

Wie sieht die Signatur der Funktion aus?

[DeddyH]

So etwas wie Sort(@SortFunc)?

[Christian18]

Hallo,

ich habe eine kleine Procedure geschrieben, die ich in einem Thread ausführen möchte. Diese procedure greift aber auf Formular elemente zu. wie kann ich das realisieren?

Delphi-Quellcode:

procedure TFMain.Button1Click(Sender: TObject);
  var id : Integer;
begin
  CreateThread(nil, 0, Import, nil, 0, id)
end;

[1234588]

Delphi-Quellcode:

procedure miep(i: LongInt);
begin
  writeln(i);
  readln;
end;

type
  Tmiep = procedure(i: LongInt);

procedure test(m: Tmiep);
begin
  m(1);
end;

begin
  test(@miep);
end.

//edit

teste mal folgendes:

function Import(p: pointer): longint);

..

CreateThread(nil, 0, @Import, nil, 0, id)

[sirius]

CreateThread(nil, 0, @Import, nil, 0, id) Aber benutze besser BeginThread. Macht fast dasselbe + den Speichermanager auf Multithreading vorzubereiten.
Und muss ID nicht cardinal sein?

[Apollonius]

Es kann aber mit der Aufrufkonvention haken. BeginThread erwartet Register, CreateThread stdcall.