How to use the C# Generics in delphi 2009/2010? -
मेरे पास सी # में निम्नलिखित विधि है:
सार्वजनिक टी पढ़ें & lt; T & gt; () {टी [] टी = नया टी [1]; Int s = Marshal.SizeOf (टाइपफ (टी)); यदि (सूचकांक + एस & gt; आकार) नए अपवाद फेंक ("त्रुटि 101 सेलिब्रिटी"); जीसीएंडल हैंडल = जीसीएंडेल। एलोक (टी, जीसीएंडडेल टाइप। पिन); मार्शल.कॉपी (डेटा रीड, इंडेक्स, हैंडल। एड्रॉफ़ पिनिड ओब्जेक्ट (), एस); सूचक + = s; वापसी टी [0]; }
डेटा रीड एक बाइट [] सरणी है। सूचकांक और आकार पूर्णांक प्रकार हैं।
फ़ंक्शन डेटा रीड (बाइट []) से एक प्रकार पढ़ता है और सूचकांक (सूचक + = प्रकार) को बढ़ाता है।
सभी नेट पर, जब मैं Google "डेल्फी जेनरिकस" - ये सभी प्रकट होते हैं ट्रेकॉर्ड्स और क्लासेस, जो मुझे नहीं चाहिए।
मैं डेल्फी में उस कोड को कैसे बनाऊं?
फ़ंक्शन TReader.Read & lt; T & gt; T; FINDex + SizeOf (T) & gt; लंबाई (FDataRead) तब अपवाद बढ़ा। बनाएँ ('त्रुटि 101 सेलिब्रिटी'); हटो (FDataRead [FIndex], परिणाम, आकारऑफ़ (टी)); इंक (FIndex, SizeOf (T)); समाप्त;
Comments
Post a Comment