eigene typen in Prozedurdeklaration

[mulcheo]

Hallo,

Es gibt ja die Möglichkeit, eigene Variablenypen zu deklarieren nach dem Schema

Code: Alles auswählen

var
  Test: (rot, gelb);

gibt es darüber hinaus auch die Möglichkeit, eigene Typen für die Deklaration von Prozeduren zu verwenden, also?

Code: Alles auswählen

type
 
  TestKlasse = class
    (...)
    procedure Testproc(???); // hier soll ein eigener Typ nach obigen Schema übergeben werden
  end;

Danke schonmal

[Michl]

Das könntest Du über einen Record lösen:

Code: Alles auswählen

type
  TTest = Record
    Rot:  Byte;
    Gelb: Byte;
  end;
 
type
  TTestKlasse = Class
    (...)
    procedure Testproc(myTest: TTest); // hier soll ein eigener Typ nach obigen Schema übergeben werden
  end; 

Siehe http://wiki.lazarus.freepascal.org/Record/de

[m.fuchs]

Ja, das kannst du machen, indem du die Typendeklaration nicht direkt in der Variable machst, sondern vorher als eigenen Typen einführst.

Code: Alles auswählen

type
  TFarben = (rot, gelb);
 
procedure Testproc(Farbe: TFarben);
begin
  (* ... *)
end;
 
begin
  Testproc(rot);
end.