Array mit verschiedenen Records

[Scrutor]

Hallo marabu,

diese Lösung hört sich sehr gut an.
Da ja mehr als nur diese 2 datensätze existieren, ist diese Möglichkeit brauchbar.

Ich hab das mal wie folgt angefangen:

Delphi-Quellcode:

type
  TZeile_1 = record
    Dum1    : array[0..7]of char;   //Dummy
    ProgNr  : array[0..7]of char;   //Programmnummer
    ZeichNr : array[0..7]of char;   //Zeichnungsnummer
    LineNr  : array[0..7]of char;   //Lineelement
    IdBohr  : array[0..7]of char;   //Ident Bohren
    IdVorr  : array[0..7]of char;   //Ident Vorrichtung
    Dum2    : array[0..7]of char;   //Dummy
    AVO     : array[0..7]of char;   //AVO
    Mach    : array[0..7]of char;   //Maschine
    Durchm  : array[0..7]of char;   //Raddurchmesser
    AusWink : array[0..7]of char;   //Austrittswinkel
    AnzScha : array[0..7]of char;   //Anzahl Schaufeln
    SchaHohe: array[0..7]of char;   //Schaufelhöhe
    LineFeed: array[0..1]of char;
  end;

type
  TZeile_1_vor04 =  record
    Auftr   : array[0..8]of char;   //Auftragsnummer
    Spec    : TZeile_1;
  end;

type
  TZeile_1_nach04 =  record
    Auftr   : array[0..9]of char;   //Auftragsnummer
    Spec    : TZeile_1;
  end;

type
  TZeile_2 = record
    MesDurch: array[0..8]of char;   
    EinDur  : array[0..7]of char;   
    FLAS    : array[0..4]of char;   
    Wkstoff : array[0..7]of char;   
    Stueck  : array[0..7]of char;   
    Dum4    : array[0..7]of char;   
  end;

type
  TZeile_2_vor03 = record
    Spec    : TZeile_2;
    SchaHoSi: array[0..7]of char;   
    ZwShaSi : array[0..7]of char;   
    LineFeed: array[0..1]of char;
  end;

type
  TZeile_2_nach03 = record
    Spec    : TZeile_2;
    SchaHoSi: array[0..7]of char;   
    ZwShaSi : array[0..7]of char;   
    MaxType : array[0..7]of char;   
    LineFeed: array[0..1]of char;
  end;

so, nun lese ich aber ja in einer procedure die Datei mit Filestream aus und übergebe die ausgelesenen records an eine weitere procedure, die die einzelenen Daten dann in Editfelder, etc. einträgt.

wie deklariere ich in der ersten procedure am besten die verschiedenen records ?
und wie übergebe ich die an die nächste procedure ?
alle global deklarieren ?


mfg
Scrutor