Pointer zu Typen ! Warum ?

[bluesbear]

Ach menno - du hast doch fast immer eine Antwort auf alles. Außerdem hattest du die Antwort auf die Frage hier ja schon genannt.

[BUG]

Achtung, ich weiß nicht wie das Folgende mit Delphi > Delphi 3 aussieht

Delphi-Quellcode:

procedure test(a: ^byte);
begin
end;

Kann ich ich nicht kompilieren,

Delphi-Quellcode:

type PByte = ^Byte;
// ...
procedure test(a: PByte);
begin
end;

geht.

MfG,
Bug

[mkinzler]

Würde man in Delphi auch so lösen:
procedure test(var a: Byte);

[nicodex]

Zitat von mkinzler:

Würde man in Delphi auch so lösen:
procedure test(var a: Byte);

Nicht, wenn es sich um einen 'optionalen' Parameter handelt (TFoo(nil^) geht zwar auch, aber 'schön' ist was anderes).

[SubData]

Nehmen wir an, du möchtest einer Prozedur ein Record übergeben, welches selbst einen Verweis auf die Prozedur hat.

Delphi-Quellcode:

  PTFormatProcedure = ^TFormatProcedure;

  TFormatRecordEntry  = record
    iProc   : Byte;
    pFunc   : PTFormatProcedure;
  end;

  TFormatProcedure  = function(const re: TFormatRecordEntry; const xSet: TDataSet): String;

Du könntest im Record selbst kein Feld auf TFormatProcedure definieren,
da der Compiler an dieser Stelle die Prozedur noch nicht kennt.
Andersrum kannst du das Record nicht danach definieren, da es
ein Parameter für die Prozedur ist. Mit einem Pointer wäre dies machbar