unit SyntaxEx;

interface

type Tvar_A_Integer = record var A: Integer; end; function var_A_Integer: Tvar_A_Integer;
type Tvar_B_Integer = record var B: Integer; end; function var_B_Integer: Tvar_B_Integer;
type Tvar_C_Integer = record var C: Integer; end; function var_C_Integer: Tvar_C_Integer;
type Tvar_D_Integer = record var D: Integer; end; function var_D_Integer: Tvar_D_Integer;
type Tvar_E_Integer = record var E: Integer; end; function var_E_Integer: Tvar_E_Integer;
type Tvar_F_Integer = record var F: Integer; end; function var_F_Integer: Tvar_F_Integer;
type Tvar_G_Integer = record var G: Integer; end; function var_G_Integer: Tvar_G_Integer;
type Tvar_H_Integer = record var H: Integer; end; function var_H_Integer: Tvar_H_Integer;
type Tvar_I_Integer = record var I: Integer; end; function var_I_Integer: Tvar_I_Integer;
type Tvar_J_Integer = record var J: Integer; end; function var_J_Integer: Tvar_J_Integer;
type Tvar_K_Integer = record var K: Integer; end; function var_K_Integer: Tvar_K_Integer;
type Tvar_L_Integer = record var L: Integer; end; function var_L_Integer: Tvar_L_Integer;
type Tvar_M_Integer = record var M: Integer; end; function var_M_Integer: Tvar_M_Integer;
type Tvar_N_Integer = record var N: Integer; end; function var_N_Integer: Tvar_N_Integer;
type Tvar_O_Integer = record var O: Integer; end; function var_O_Integer: Tvar_O_Integer;
type Tvar_P_Integer = record var P: Integer; end; function var_P_Integer: Tvar_P_Integer;
type Tvar_Q_Integer = record var Q: Integer; end; function var_Q_Integer: Tvar_Q_Integer;
type Tvar_R_Integer = record var R: Integer; end; function var_R_Integer: Tvar_R_Integer;
type Tvar_S_Integer = record var S: Integer; end; function var_S_Integer: Tvar_S_Integer;
type Tvar_T_Integer = record var T: Integer; end; function var_T_Integer: Tvar_T_Integer;
type Tvar_U_Integer = record var U: Integer; end; function var_U_Integer: Tvar_U_Integer;
type Tvar_V_Integer = record var V: Integer; end; function var_V_Integer: Tvar_V_Integer;
type Tvar_W_Integer = record var W: Integer; end; function var_W_Integer: Tvar_W_Integer;
type Tvar_X_Integer = record var X: Integer; end; function var_X_Integer: Tvar_X_Integer;
type Tvar_Y_Integer = record var Y: Integer; end; function var_Y_Integer: Tvar_Y_Integer;
type Tvar_Z_Integer = record var Z: Integer; end; function var_Z_Integer: Tvar_Z_Integer;

type Tvar_X1_Integer = record var X1: Integer; end; function var_X1_Integer: Tvar_X1_Integer;
type Tvar_Y1_Integer = record var Y1: Integer; end; function var_Y1_Integer: Tvar_Y1_Integer;
type Tvar_Z1_Integer = record var Z1: Integer; end; function var_Z1_Integer: Tvar_Z1_Integer;
type Tvar_X2_Integer = record var X2: Integer; end; function var_X2_Integer: Tvar_X2_Integer;
type Tvar_Y2_Integer = record var Y2: Integer; end; function var_Y2_Integer: Tvar_Y2_Integer;
type Tvar_Z2_Integer = record var Z2: Integer; end; function var_Z2_Integer: Tvar_Z2_Integer;
type Tvar_X3_Integer = record var X3: Integer; end; function var_X3_Integer: Tvar_X3_Integer;
type Tvar_Y3_Integer = record var Y3: Integer; end; function var_Y3_Integer: Tvar_Y3_Integer;
type Tvar_Z3_Integer = record var Z3: Integer; end; function var_Z3_Integer: Tvar_Z3_Integer;

type Tvar_Index_Integer = record var Index: Integer; end;
function var_Index_Integer: Tvar_Index_Integer;

type Tvar_Index1_Integer = record var Index1: Integer; end;
function var_Index1_Integer: Tvar_Index1_Integer;
type Tvar_Index2_Integer = record var Index2: Integer; end;
function var_Index2_Integer: Tvar_Index2_Integer;
type Tvar_Index3_Integer = record var Index3: Integer; end;
function var_Index3_Integer: Tvar_Index3_Integer;

type Tvar_SearchIndex_Integer = record var SearchIndex: Integer; end;
function var_SearchIndex_Integer: Tvar_SearchIndex_Integer;

type Tvar_Value_Integer = record var Value: Integer; end;
function var_Value_Integer: Tvar_Value_Integer;


//────────────────────
type Tvar_A_String = record var A: String; end; function var_A_String: Tvar_A_String;
type Tvar_B_String = record var B: String; end; function var_B_String: Tvar_B_String;
type Tvar_C_String = record var C: String; end; function var_C_String: Tvar_C_String;
type Tvar_D_String = record var D: String; end; function var_D_String: Tvar_D_String;
type Tvar_E_String = record var E: String; end; function var_E_String: Tvar_E_String;
type Tvar_F_String = record var F: String; end; function var_F_String: Tvar_F_String;
type Tvar_G_String = record var G: String; end; function var_G_String: Tvar_G_String;
type Tvar_H_String = record var H: String; end; function var_H_String: Tvar_H_String;
type Tvar_I_String = record var I: String; end; function var_I_String: Tvar_I_String;
type Tvar_J_String = record var J: String; end; function var_J_String: Tvar_J_String;
type Tvar_K_String = record var K: String; end; function var_K_String: Tvar_K_String;
type Tvar_L_String = record var L: String; end; function var_L_String: Tvar_L_String;
type Tvar_M_String = record var M: String; end; function var_M_String: Tvar_M_String;
type Tvar_N_String = record var N: String; end; function var_N_String: Tvar_N_String;
type Tvar_O_String = record var O: String; end; function var_O_String: Tvar_O_String;
type Tvar_P_String = record var P: String; end; function var_P_String: Tvar_P_String;
type Tvar_Q_String = record var Q: String; end; function var_Q_String: Tvar_Q_String;
type Tvar_R_String = record var R: String; end; function var_R_String: Tvar_R_String;
type Tvar_S_String = record var S: String; end; function var_S_String: Tvar_S_String;
type Tvar_T_String = record var T: String; end; function var_T_String: Tvar_T_String;
type Tvar_U_String = record var U: String; end; function var_U_String: Tvar_U_String;
type Tvar_V_String = record var V: String; end; function var_V_String: Tvar_V_String;
type Tvar_W_String = record var W: String; end; function var_W_String: Tvar_W_String;
type Tvar_X_String = record var X: String; end; function var_X_String: Tvar_X_String;
type Tvar_Y_String = record var Y: String; end; function var_Y_String: Tvar_Y_String;
type Tvar_Z_String = record var Z: String; end; function var_Z_String: Tvar_Z_String;

implementation


function var_A_Integer: Tvar_A_Integer; begin Result.A := 0; end;
function var_B_Integer: Tvar_B_Integer; begin Result.B := 0; end;
function var_C_Integer: Tvar_C_Integer; begin Result.C := 0; end;
function var_D_Integer: Tvar_D_Integer; begin Result.D := 0; end;
function var_E_Integer: Tvar_E_Integer; begin Result.E := 0; end;
function var_F_Integer: Tvar_F_Integer; begin Result.F := 0; end;
function var_G_Integer: Tvar_G_Integer; begin Result.G := 0; end;
function var_H_Integer: Tvar_H_Integer; begin Result.H := 0; end;
function var_I_Integer: Tvar_I_Integer; begin Result.I := 0; end;
function var_J_Integer: Tvar_J_Integer; begin Result.J := 0; end;
function var_K_Integer: Tvar_K_Integer; begin Result.K := 0; end;
function var_L_Integer: Tvar_L_Integer; begin Result.L := 0; end;
function var_M_Integer: Tvar_M_Integer; begin Result.M := 0; end;
function var_N_Integer: Tvar_N_Integer; begin Result.N := 0; end;
function var_O_Integer: Tvar_O_Integer; begin Result.O := 0; end;
function var_P_Integer: Tvar_P_Integer; begin Result.P := 0; end;
function var_Q_Integer: Tvar_Q_Integer; begin Result.Q := 0; end;
function var_R_Integer: Tvar_R_Integer; begin Result.R := 0; end;
function var_S_Integer: Tvar_S_Integer; begin Result.S := 0; end;
function var_T_Integer: Tvar_T_Integer; begin Result.T := 0; end;
function var_U_Integer: Tvar_U_Integer; begin Result.U := 0; end;
function var_V_Integer: Tvar_V_Integer; begin Result.V := 0; end;
function var_W_Integer: Tvar_W_Integer; begin Result.W := 0; end;
function var_X_Integer: Tvar_X_Integer; begin Result.X := 0; end;
function var_Y_Integer: Tvar_Y_Integer; begin Result.Y := 0; end;
function var_Z_Integer: Tvar_Z_Integer; begin Result.Z := 0; end;

function var_X1_Integer: Tvar_X1_Integer; begin Result.X1 := 0; end;
function var_Y1_Integer: Tvar_Y1_Integer; begin Result.Y1 := 0; end;
function var_Z1_Integer: Tvar_Z1_Integer; begin Result.Z1 := 0; end;
function var_X2_Integer: Tvar_X2_Integer; begin Result.X2 := 0; end;
function var_Y2_Integer: Tvar_Y2_Integer; begin Result.Y2 := 0; end;
function var_Z2_Integer: Tvar_Z2_Integer; begin Result.Z2 := 0; end;
function var_X3_Integer: Tvar_X3_Integer; begin Result.X3 := 0; end;
function var_Y3_Integer: Tvar_Y3_Integer; begin Result.Y3 := 0; end;
function var_Z3_Integer: Tvar_Z3_Integer; begin Result.Z3 := 0; end;

function var_Index_Integer: Tvar_Index_Integer;
begin Result.Index := 0; end;

function var_Index1_Integer: Tvar_Index1_Integer;
begin Result.Index1 := 0; end;
function var_Index2_Integer: Tvar_Index2_Integer;
begin Result.Index2 := 0; end;
function var_Index3_Integer: Tvar_Index3_Integer;
begin Result.Index3 := 0; end;

function var_SearchIndex_Integer: Tvar_SearchIndex_Integer;
begin Result.SearchIndex := 0; end;

function var_Value_Integer: Tvar_Value_Integer;
begin Result.Value := 0; end;


//────────────────────
function var_A_String: Tvar_A_String; begin Result.A := ''; end;
function var_B_String: Tvar_B_String; begin Result.B := ''; end;
function var_C_String: Tvar_C_String; begin Result.C := ''; end;
function var_D_String: Tvar_D_String; begin Result.D := ''; end;
function var_E_String: Tvar_E_String; begin Result.E := ''; end;
function var_F_String: Tvar_F_String; begin Result.F := ''; end;
function var_G_String: Tvar_G_String; begin Result.G := ''; end;
function var_H_String: Tvar_H_String; begin Result.H := ''; end;
function var_I_String: Tvar_I_String; begin Result.I := ''; end;
function var_J_String: Tvar_J_String; begin Result.J := ''; end;
function var_K_String: Tvar_K_String; begin Result.K := ''; end;
function var_L_String: Tvar_L_String; begin Result.L := ''; end;
function var_M_String: Tvar_M_String; begin Result.M := ''; end;
function var_N_String: Tvar_N_String; begin Result.N := ''; end;
function var_O_String: Tvar_O_String; begin Result.O := ''; end;
function var_P_String: Tvar_P_String; begin Result.P := ''; end;
function var_Q_String: Tvar_Q_String; begin Result.Q := ''; end;
function var_R_String: Tvar_R_String; begin Result.R := ''; end;
function var_S_String: Tvar_S_String; begin Result.S := ''; end;
function var_T_String: Tvar_T_String; begin Result.T := ''; end;
function var_U_String: Tvar_U_String; begin Result.U := ''; end;
function var_V_String: Tvar_V_String; begin Result.V := ''; end;
function var_W_String: Tvar_W_String; begin Result.W := ''; end;
function var_X_String: Tvar_X_String; begin Result.X := ''; end;
function var_Y_String: Tvar_Y_String; begin Result.Y := ''; end;
function var_Z_String: Tvar_Z_String; begin Result.Z := ''; end;


end.