Einzelnen Beitrag anzeigen

DelphiManiac

Registriert seit: 5. Dez 2005
742 Beiträge
 
#1

Durchlaufen eines Records

  Alt 29. Nov 2007, 11:49
Hallo,

ich habe folgendes Problem,

ich habe einen Record, der mehrere Datentypen in sich trägt, diesen würde ich gerne durchlaufen (von der 1. bis zur letzten Variable) und diese auf einen bestimmten Wert prüfen (0xFFFF).

Mein Record sieht folgendermaßen aus:

Delphi-Quellcode:
 TSitzung =record
      Identifier :Integer;
      HerstellDatum :ShortString;
      Seriennummer :ShortString;
      GeraeteTyp :ShortString;
      Sensortyp :Shortstring;
      SoftwareVersion :ShortString;
      SoftwareDatum :ShortString;
      SoftwareRelease :integer;
      SoftwareSubRelease:integer;
      Sprache :Integer;
      Druck :Extended;
      Druck_old :Extended;
      Temp :Extended;
      Temp_old :Extended;
      TempOffset :Smallint;
      CO2 :Extended;
      CO2_old :Extended;
      ADCDruck :Smallint;
      ADCDruck_Old :Smallint;
      ADCDruckGain :integer;
      ADCDruckSF :integer;
      ADCDruckFS :Smallint;
      ADCDruckHS :Smallint;
      ADCDruckLS :Smallint;
      ADCDruckOffset :double;
      ADCTempFS :Smallint;
      ADCTempHS :Smallint;
      ADCTempLS :Smallint;
      ADCTemp :integer;
      ADCTemp_old :integer;
      ADCTempGain :integer;
      ADCTempSF :integer;
      DAC1_4mA :integer;
      DAC1_20mA :integer;
      DAC2_4mA :integer;
      DAC2_20mA :integer;
      PRef :Single;
      TRef :Single;
      Co2Offset :Single;
      AlarmHH :Integer;
      AlarmH :Integer;
      AlarmL :Integer;
      ....
Ist dies möglich, oder muss ich einen anderen Weg finden?

Gruß und danke Euch!
  Mit Zitat antworten Zitat