सेट और अन्य सरल प्रकार के लिए डेल्फी रिकॉर्ड हेल्पर्स

वर
s: स्ट्रिंग; शुरू
s: = 'डेल्फी एक्सई 3'; रों। बदलें ('XE3', 'नियम', [])। ToUpper; समाप्त; 

प्रकार
TDay = (सोमवार = 0, मंगलवार, बुधवार, गुरुवार, शुक्रवार, शनिवार, रविवार); टडायहेल्पर = के लिए रिकॉर्ड सहायक TDay। समारोह AsByte: बाइट; समारोह तार: तार; समाप्त; 

समारोह TDayHelper। AsByte: बाइट; शुरू
परिणाम: = बाइट (स्व); समाप्त; समारोह TDayHelper। तार: तार; शुरूमामला स्वयं का
सोमवार: परिणाम: = 'सोमवार'; मंगलवार: परिणाम: = 'मंगलवार'; बुधवार: परिणाम: = 'बुधवार'; गुरुवार: परिणाम: = 'गुरुवार'; शुक्रवार: परिणाम: = 'शुक्रवार'; शनिवार: परिणाम: = 'शनिवार'; रविवार: परिणाम: = 'रविवार'; समाप्त; समाप्त; 

वर
aDay: TDay; s: स्ट्रिंग; शुरू
aDay: = TDay। सोमवार; s: = aDay। तार। नीचा करना; समाप्त; 

टिड्डे = समुच्चय TDay; 

वर
दिन: टेडेज़; s: स्ट्रिंग; शुरू
दिन: = [सोमवार.. WEDNESDAY]; दिन: = दिन + [रविवार]; समाप्त; 

वर
दिन: टेडेज़; बी: बूलियन; शुरूदिन: = [सोमवार, मंगलवार] बी: = दिन। इंटरसेक्ट ([सोमवार, गुरुवार])। IsEmpty;

प्रकार
TDaysHelper = के लिए रिकॉर्ड सहायक TDays। समारोह इंटरसेक्ट (स्थिरांक दिन: TDays): TDays; समारोह IsEmpty: बूलियन; समाप्त;... समारोह TDaysHelper। इंटरसेक्ट (स्थिरांक दिन: TDays): TDays; शुरू
परिणाम: = स्व * दिन; समाप्त; समारोह TDaysHelper। IsEmpty: बूलियन; शुरू
परिणाम: = स्व = []; समाप्त; 

// ALIKE का कोई संकलन नहीं!
TGenericSet = का सेट ; 

प्रकार
टीबीटीसेट = समुच्चय बाइट; TByteSetHelper = के लिए रिकॉर्ड सहायक TByteSet। 

जनताप्रक्रिया स्पष्ट; प्रक्रिया शामिल(स्थिरांक मूल्य: बाइट); अधिभार; पंक्ति में; प्रक्रिया शामिल(स्थिरांक मान: TByteSet); अधिभार; पंक्ति में; प्रक्रिया निकालना(स्थिरांक मूल्य: बाइट); अधिभार; पंक्ति में; प्रक्रिया निकालना(स्थिरांक मान: TByteSet); अधिभार; पंक्ति में; समारोह इंटरसेक्ट (स्थिरांक मान: TByteSet): TByteSet; पंक्ति में; समारोह IsEmpty: बूलियन; पंक्ति में; समारोह शामिल है (स्थिरांक मूल्य: बाइट): बूलियन; अधिभार; पंक्ति में;समारोह शामिल है (स्थिरांक मान: TByteSet): बूलियन; अधिभार; पंक्ति में;समारोह IsSuperSet (स्थिरांक मान: TByteSet): बूलियन; पंक्ति में; समारोह IsSubSet (स्थिरांक मान: TByteSet): बूलियन; पंक्ति में; समारोह बराबरी (स्थिरांक मान: TByteSet): बूलियन; पंक्ति में; समारोह तार: तार; पंक्ति में; समाप्त; 

{TByteSetHelper}प्रक्रिया TByteSetHelper। शामिल करें (कास्ट वैल्यू: बाइट); शुरू
प्रणाली। शामिल करें (स्वयं, मूल्य); समाप्त; प्रक्रिया TByteSetHelper। बाहर निकालें (कास्ट मूल्य: बाइट); शुरू
प्रणाली। बहिष्कृत (स्वयं, मूल्य); समाप्त; प्रक्रिया TByteSetHelper। स्पष्ट; शुरू
स्व: = []; समाप्त; समारोह TByteSetHelper। बराबरी (कास्ट वैल्यू: टीबीटीसेट): बूलियन; शुरू
परिणाम: = स्व = मूल्यों; समाप्त; प्रक्रिया TByteSetHelper। बहिष्कृत करें (const मान: TByteSet); शुरू
स्व: = आत्म - मूल्य; समाप्त; प्रक्रिया TByteSetHelper। शामिल करें (कास्ट मान: TByteSet); शुरू
स्व: = स्व + मान; समाप्त; समारोह TByteSetHelper। शामिल हैं (कॉन्स्टेबल मान: TByteSet): बूलियन; शुरू
परिणाम: = IsSuperSet (मान); समाप्त; समारोह TByteSetHelper। इंटरसेक्ट (कॉन्स्टेबल वैल्यूज़: टीबीटीसेट): टीबीटीसेट; शुरू
परिणाम: = स्व * मान; समाप्त; समारोह TByteSetHelper। शामिल (कास्ट वैल्यू: बाइट): बूलियन; शुरू
परिणाम: = स्वयं में मूल्य; समाप्त; समारोह TByteSetHelper। IsEmpty: बूलियन; शुरू
परिणाम: = स्व = []; समाप्त; समारोह TByteSetHelper। IsSubSet (const मान: TByteSet): बूलियन; शुरू
परिणाम: = स्व <= मान; समाप्त; समारोह TByteSetHelper। IsSuperSet (कास्ट मान: TByteSet): बूलियन; शुरू
परिणाम: = स्व> = मान; समाप्त; समारोह TByteSetHelper। स्ट्रिंग: स्ट्रिंग; वर
बी: बाइट; शुरूके लिये ख में स्वयं कर
परिणाम: = result + IntToStr (b) + ','; परिणाम: = कॉपी (परिणाम, 1, -2 + लंबाई (परिणाम)); समाप्त; 

वर
दिनएबाइट्स: टीबीटीसेट; शुरू
daysAsByteSet। स्पष्ट; daysAsByteSet। सोमवार शामिल करें। AsByte); daysAsByteSet। शामिल करें (पूर्णांक (शनिवार)); daysAsByteSet। शामिल करें (बाइट (टीडीए) मंगलवार)); daysAsByteSet। शामिल करें (Integer (TDay) बुधवार)); daysAsByteSet। शामिल करें (Integer (TDay) बुधवार)); // 2 बार - कोई मतलब नहीं। daysAsByteSet। बहिष्कृत (टीडीए)। मंगलवार। AsByte); ShowMessage (daysAsByteSet) तार); ShowMessage (BoolToStr (daysAsByteSet) IsSuperSet ([सोमवार। AsByte, शनिवार। AsByte]), सच)); समाप्त;