Array of "eigener Record" ansprechen

[Ultimator]

Delphi-Quellcode:

type Sperrtripel = record 
     Nr : String; 
     Behandlung : TDate; 
     Tage : Integer; 
end; 

//entweder

var Sperre: array[0..1] of SperrTripel;
begin
 Sperre[0].Nr := 'asdf';
end;

//oder

type Sperre = array[0..1] of SperrTripel;

var MySperre: Sperre;
begin
 MySperre[0].Nr := 'bla';
end;