الرمز كما يلي:
دالة tform1.getlocaleInformation (العلم: عدد صحيح): سلسلة ؛
var
PCLCA: Array [0..20] of Char ؛
يبدأ
if (getLocaleInfo (locale_system_default ، flag ، pclca ، 19) <= 0) ثم ابدأ
PCLCA [0]: = #0 ؛
نهاية؛
النتائج: = PCLCA ؛
نهاية؛
الإجراء tform1.button1click (المرسل: tobject) ؛
يبدأ
ShowMessage (getLocaleInformation (locale_senglanguage)) ؛
نهاية؛
يمكن أن تأخذ المعلمة "علامة" القيم التالية:
locale_nouseroverride {لا تستخدم تجاوزات المستخدم}
locale_use_cp_acp {استخدم النظام ACP}
locale_ilanguage {رمز اللغة}
locale_slanguage {اسم اللغة المحلية}
locale_senglanguage {اسم اللغة الإنجليزية للغة}
locale_sabbrevlangname {language اسم الاختصار}
locale_snativelangname {اسم اللغة المحلية}
Locale_Icountry {Country Code}
locale_scountry {country name}
locale_sengcountry {الاسم الإنجليزي للبلد}
locale_sabbrevctryname {country اسم الاختصار}
locale_snativectryname {country name}
locale_idefaultlanguage {رمز اللغة الافتراضي}
locale_idefaultcountry {default country code}
locale_idefaultcodepage {صفحة رمز OEM الافتراضي}
locale_idefaultansicodepage
locale_idefaultMAccodePage {page الافتراضي mac}
locale_slist {list item splitter}
locale_imeasure {وحدة القياس 0 = متر ، 1 = اللغة الإنجليزية}
locale_sdecimal {decimal point smody}
locale_sth {ألف مقسم}
locale_sgrouping {digit rociping}
locale_idigits {عدد الأرقام الكسرية}
locale_ilzero {Zeros Leading for Decimal}
locale_inegnumber {الوضع السلبي}
locale_snativedigits {Native ASCII 0-9}
locale_scurrency {رمز العملة المحلية}
locale_sintlsymbol {رمز العملة الدولية}
locale_smondecimalsep {عملات العشرية}
locale_smonthoxipsep {currency ألف مقسم}
locale_smongrouping {monetary proceding}
locale_icurrdigits { # الأرقام النقدية المحلية}
locale_iintlcurrdigits { # intl الأرقام النقدية}
locale_icurrency {وضع العملة الإيجابية}
locale_inegcurr {وضع العملة السلبية}
locale_sdate {date splitter}
locale_stime {time splitter}
locale_sshortdate {سلسلة تاريخ قصيرة}
locale_slongdate {long date string}
locale_stimeformat {time format string}
locale_idate {تنسيق تاريخ قصير}
locale_ildate {طلب تنسيق تاريخ طويل}
locale_itime {time format specifier}
locale_itimemarkposn {موقع علامة الوقت}
locale_icentury
locale_itlzero {Zeros in time}
locale_idaylzero {zeros in day field (تاريخ قصير)}
locale_imonlzero {Zeros in Month
locale_s1159 {am designer}
locale_s2359 {pm designer}
locale_icalendartype {نوع محدد التقويم}
locale_ioptionalcalendar {أنواع التقويم الإضافية المحددة}
locale_ifirstdayofweek {اليوم الأول من الأسبوع المحدد}
locale_ifirstweekofyear {first week of year}
locale_sdayname1 {long name for Monday}
locale_sdayname2 {اسم طويل ليوم الثلاثاء}
locale_sdayname3 {اسم طويل للأربعاء}
locale_sdayname4 {اسم طويل ليخميس}
locale_sdayname5 {اسم طويل ليوم الجمعة}
locale_sdayname6 {long name for Saturday}
locale_sdayname7 {اسم طويل للأحد}
locale_sabbrevdayname1 {الاثنين الاختصار}
locale_sabbrevdayname2 {الثلاثاء الاختصار}
locale_sabbrevdayname3 {الأربعاء الاختصار}
locale_sabbrevdayname4 {الخميس الاختصار}
locale_sabbrevdayname5 {الجمعة الاختصار}
locale_sabbrevdayname6 {السبت الاختصار}
locale_sabbrevdayname7 {اختصار الأحد}
locale_smonthname1 {اسم طويل لشهر يناير}
locale_smonthname2 {اسم طويل لشهر فبراير}
locale_smonthname3 {اسم طويل لشهر مارس}
locale_smonthname4 {long name for April}
locale_smonthname5 {اسم طويل لشهر مايو}
locale_smonthname6 {اسم طويل لشهر يونيو}
locale_smonthname7 {اسم طويل لشهر يوليو}
locale_smonthname8 {long name for August}
locale_smonthname9 {اسم طويل لشهر سبتمبر}
locale_smonthname10 {اسم طويل لشهر أكتوبر}
locale_smonthname11 {اسم طويل لشهر نوفمبر}
locale_smonthname12 {اسم طويل لشهر ديسمبر}
locale_smonthname13 {اسم طويل للشهر الثالث عشر (إذا كان موجودًا)}
locale_sabbrevmonthname1 {يناير الاختصار}
locale_sabbrevmonthname2 {فبراير الاختصار}
locale_sabbrevmonthname3 {March Abbreviation}
locale_sabbrevmonthname4 {اختصار من أبريل}
locale_sabbrevmonthname5 {قد اختصار}
locale_sabbrevmonthname6 {يونيو الاختصار}
locale_sabbrevmonthname7 {اختصار في يوليو}
locale_sabbrevmonthname8 {اختصار من أغسطس}
locale_sabbrevmonthname9 {سبتمبر الاختصار}
locale_sabbrevmonthname10 {أكتوبر الاختصار}
locale_sabbrevmonthname11 {اختصار في نوفمبر}
locale_sabbrevmonthname12 {ديسمبر الاختصار}
locale_sabbrevmonthname13 {اختصار من ثلاثة عشر (إن وجد)}
locale_spositivesign {علامة إيجابية}
locale_sneginesign {minus sign}
locale_ipossignposn {الموضع الإيجابي}
locale_inegsignposn {minus position}
locale_ipossymprecedes {mon sym يسبق pos amt}
locale_ipossepbyspace {mon sym sep by pace من pos amt}
locale_inegsymprecedes {mon sym يسبق neg amt}
locale_inegsepbyspace {mon sym sep by Space from neg amt}
locale_fontsignature {font signature}
locale_siso639langname
locale_siso3166ctryname {iso Abbreviation Country Name}