1:

if Seg.SType = TR_STR then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

//==========================================================================*
// Main Car Data record
//--------------------------------------------------------------------------*
  TCarElt = packed record                       // car.h
    Index: Int;         // car index
    Info: TInitCar;     // public
    Pub: TPublicCar;    // public
{$IFDEF TORCS_V1.3.0}
    Dummy1: Int;
{$ELSE}
    Dummy1: Int;
{$ENDIF}
    Race: TCarRaceInfo; // public
    Priv: TPrivCar;     // private
    Ctrl: TCarCtrl;     // private
    PitCmd: TCarPitCmd; // private
    Robot: PRobotItf;   // private
    Next: PCarElt;      // Next in List
    Dummy2: Int;
  end;
//==========================================================================*					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:

type 
  TIPCCarData = class
  private
    // >>> Instanzlokaler Datenbereich:
    oTORCSIndex: Int;                            // Index des Wagens
//>>>  oTORCSInfo: TInitCar;                        // Infos zum Wagen
    oInfoName: TTorcsName;                       // Driver's name
{$IFDEF TORCS_V1.3.0}
    oInfoTeamName: TTorcsName;                   // Team name
{$ENDIF}
    oInfoCarName: TTorcsName;                    // Car's object name
    oInfoCategory: TTorcsName;                   // Car's category
    oInfoRaceNumber: Int;                        // Car's race number
    oInfoStartRank: Int;                         // Car's starting position
    oInfoDriverType: Int;                        // Driver type
    oInfoSkillLevel: Int;                        // Driver's skill level (0=rookie -> 3=pro)
    oInfoIconColorR: Tdble;                      // Car color in leaders board
    oInfoIconColorG: Tdble;                      // Car color in leaders board
    oInfoIconColorB: Tdble;                      // Car color in leaders board
    oInfoDimension: T3Dd;                        // Car's mesures
    oInfoDrvPos: T3Dd;                           // Driver's position
    oInfoBonnetPos: T3Dd;                        // Bonnet's position
    oInfoTank: Tdble;                            // Fuel tank capacity
    oInfoSteerLock: Tdble;                       // Steer lock angle
    oInfoStatGC: T3Dd;                           // Static pos of GC (should be the origin of car axis)
    oInfoWheel: array [0..3] of TWheelSpec;      // Wheels specifications
    oInfoVisualAttr: tVisualAttributes;          // Visual attributes
//<<<
//>>>  oTORCSPub: TPublicCar;
    oPubDynGC: TDynPt;                           // GC data (car axis)
    oPubDynGCg: TDynPt;                          // GC data (world axis)
    oPubPosMat: TSGMat4;                         // Position matrix
    oPubTrkPos: TTrkLocPos;                      // Current track position. The segment is the track segment (not sides)
    oPubState: Int;                              // State of the car.
    oPubCorner: array [0..3] of tPosd;
{$IFDEF TORCS_V1.3.0}
  oAlignmentDummy: Int;
{$ELSE}
  oAlignmentDummy: Int;
{$ENDIF}
//<<<
//>>>  oTORCSRace: TCarRaceInfo;
    oRaceBestLapTime: Double;
    oRaceDeltaBestLapTime: Double;
    oRaceCurLapTime: Double;
    oRaceLastLapTime: Double;
    oRaceCurTime: Double;
    oRaceTopSpeed: Tdble;
    oRaceLaps: Int;
    oRaceNbPitStops: Int;
    oRaceRemainingLaps: Int;
    oRacePos: Int;
    oRaceDummy1: Int;
    oRaceTimeBehindLeader: Double;
    oRaceLapsBehindLeader: Int;
    oRaceDummy2: Int;
    oRaceTimeBehindPrev: Double;
    oRaceTimeBeforeNext: Double;
    oRaceDistRaced: Tdble;
    oRaceDistFromStartLine: Tdble;
    oRaceScheduledEventTime: Double;
    oRacePit: PTrackOwnPit;
    oRaceEvent: Int;
    oRacePenaltyList: TCarPenaltyHead; // List of current penalties
//<<<
//>>>  oTORCSPriv: TPrivCar;
    oPrivParamsHandle: Pointer;                  // accessible parameters for modules
    oPrivCarHandle: Pointer;                     // parameters for car caracteristics
    oPrivDriverIndex: Int;                       // index when multiple drivers are in the same dll
    oPrivModName: TTorcsName;                    // dll name
    oPrivWheel: array [0..3] of TWheelState;
    oPrivCorner: array [0..3] of TPosd;          // car's corners position
    oPrivGear: Int;             // current gear
    oPrivFuel: Tdble;           // remaining fuel (liters)
    oPrivFuel_consumption_total: Tdble; // l
    oPrivFuel_consumption_instant: Tdble; // l/100km (>100 means infinity)
    oPrivEnginerpm: Tdble;
    oPrivEnginerpmRedLine: Tdble;
    oPrivEnginerpmMax: Tdble;
    oPrivEnginerpmMaxTq: Tdble;
    oPrivEnginerpmMaxPw: Tdble;
    oPrivEngineMaxTq: Tdble;
    oPrivEngineMaxPw: Tdble;
    oPrivGearRatio: array [0..MAX_GEARS - 1] of Tdble; // including final drive
    oPrivGearNb: Int;                     // incl reverse and neutral
    oPrivGearOffset: Int;                 // gearRatio[gear + gearOffset] is the ratio for gear
    oPrivSkid: array [0..3] of Tdble;     // skid intensity
    oPrivReaction: array [0..3] of Tdble; // reaction on wheels
    oPrivCollision: Int;
    oPrivSmoke: Tdble;
    oPrivNormal: T3Dd;
    oPrivCollpos: T3Dd; // Collision position, useful for sound
    oPrivDammage: Int;
    oPrivDebug: Int;
    oPrivCollision_state: TCollisionState; // collision state
//<<<
    // Der Rest muss über den Zeiger gehen, da es sich ab hier um
    // Information an TORCS handelt
    oTORCSCtrl: TCarCtrl;
    oTORCSPitCmd: TCarPitCmd;

    // Noch Instanzlokaler Datenbereich:
    oRobot: TRobotItf;
    // <<< Ende Instanzlokaler Datenbereich!					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Turbo Delphi 2006:
TOCRS Alignment Check: (Ohne Änderungen)

Offset(oIndex) : 0000 0000
Offset(oInfo)  : 0004 0004
Offset(oPub)   : 0328 0328
Offset(oRace)  : 0664 0664
Offset(Priv)   : 0792 0792
Offset(oCtrl)  : 1444 1444
Offset(oPitCmd): 1616 1616
Offset(oRobot) : 1628 1628
SizeOf(Index)       : 0004
SizeOf(TInitCar)    : 0324
SizeOf(TPublicCar)  : 0332
SizeOf(TCarRaceInfo): 0128
SizeOf(TPrivCar)    : 0652
SizeOf(TCarCtrl)    : 0172
SizeOf(TCarPitCmd)  : 0012
SizeOf(TRobotItf)   : 0028
SizeOf(TCarElt)     : 1640

Delphi 5:
TOCRS Alignment Check: (Ohne Änderungen an den Recorddefinitionen in UnitTorcsTypes)

Offset(oIndex) : 0000 0000
Offset(oInfo)  : 0004 0004
Offset(oPub)   : 0328 0328
Offset(oRace)  : 0668 0664 < Fehler im Objekt TIPCCarData (UnitTorcsData)
Offset(Priv)   : 0796 0792
Offset(oCtrl)  : 1448 1444
Offset(oPitCmd): 1620 1616
Offset(oRobot) : 1632 1628
SizeOf(Index)       : 0004
SizeOf(TInitCar)    : 0324
SizeOf(TPublicCar)  : 0332
SizeOf(TCarRaceInfo): 0128
SizeOf(TPrivCar)    : 0652
SizeOf(TCarCtrl)    : 0172
SizeOf(TCarPitCmd)  : 0012
SizeOf(TRobotItf)   : 0028
SizeOf(TCarElt)     : 1640					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type 
  TIPCCarData = class
  private
//>>>+++ Änderung für D5 und D7?:
    // Achtung: 
    // Um die Ausrichtung der Daten im Speicher für die Delphi-Versionen
    // 5 und 7? TORCS-Kompatibel zu erreichen ist hier der AlignmentOffset
    // nötig! 
    oAlignmentOffset: Int;                       // Für D5 und D7?
//<<<+++
    // >>> Instanzlokaler Datenbereich:
    oTORCSIndex: Int;                            // Index des Wagens
    ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Delphi 5: mit AlignmentOffset!
TOCRS Alignment Check: (Ohne Änderungen an den Recorddefinitionen in UnitTorcsTypes)

Offset(oIndex) : 0000 0000
Offset(oInfo)  : 0004 0004
Offset(oPub)   : 0328 0328
Offset(oRace)  : 0664 0664
Offset(Priv)   : 0792 0792
Offset(oCtrl)  : 1444 1444
Offset(oPitCmd): 1616 1616
Offset(oRobot) : 1628 1628
SizeOf(Index)       : 0004
SizeOf(TInitCar)    : 0324
SizeOf(TPublicCar)  : 0332
SizeOf(TCarRaceInfo): 0128
SizeOf(TPrivCar)    : 0652
SizeOf(TCarCtrl)    : 0172
SizeOf(TCarPitCmd)  : 0012
SizeOf(TRobotItf)   : 0028
SizeOf(TCarElt)     : 1640					

1:
2:
3:
4:
5:
6:
7:
8:
9:

{$IFDEF TORCS_V1.3.0}
  FuellBytes := oAlignmentDummy;                 // dito
  oAlignmentDummy := FuellBytes;                 // dito
  oAlignmentOffset := 0;                         // dito
{$ELSE}
  FuellBytes := oAlignmentDummy;                 // dito
  oAlignmentDummy := FuellBytes;                 // dito
  oAlignmentOffset := 0;                         // dito
{$ENDIF}