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