รหัสมีดังนี้:
ฟังก์ชั่น tform1.getLocaleInformation (FLAG: Integer): String;
วาจา
PCLCA: อาร์เรย์ [0..20] ของถ่าน;
เริ่ม
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 {ชื่อภาษาตัวย่อ}
locale_snativelangname {ชื่อภาษาท้องถิ่น}
locale_icountry {รหัสประเทศ}
locale_scountry {ชื่อประเทศ}
locale_sengcountry {ชื่อภาษาอังกฤษของประเทศ}
locale_sabbrevctryname {ชื่อประเทศตัวย่อ}
locale_snativectryname {ชื่อประเทศ}
locale_idefaultlanguage {รหัสภาษาเริ่มต้น}
locale_idefaultcountry {รหัสประเทศเริ่มต้น}
locale_idefaultcodepage {หน้ารหัส OEM เริ่มต้น}
locale_idefaultansicodepage {หน้ารหัส ANSI เริ่มต้น}
locale_idefaultmaccodepage {หน้า Mac เริ่มต้น}
locale_slist {รายการตัวแยกรายการ}
locale_imeasure {หน่วยการวัด 0 = เมตร, 1 = ภาษาอังกฤษ}
locale_sdecimal {สัญลักษณ์จุดทศนิยม}}
locale_sthous
locale_sgrouping {digit Grouping}
locale_idigits {จำนวนตัวเลขเศษส่วน}
locale_ilzero {ศูนย์ชั้นนำสำหรับทศนิยม}
locale_inegnumber {โหมดลบ}
locale_snativedigits {Native ASCII 0-9}
locale_scurrency {สัญลักษณ์สกุลเงินท้องถิ่น}
locale_sintlsymbol {สัญลักษณ์สกุลเงินระหว่างประเทศ}
locale_smondecimalsep {ตัวแยกทศนิยมสกุลเงิน}
locale_smonthanesep {สกุลเงินเดอร์เดอร์}
locale_smongrouping {การจัดกลุ่มการเงิน}
locale_icurrdigits { # ตัวเลขทางการเงินท้องถิ่น}
locale_iintlcurrdigits { # intl การเงินตัวเลข}
locale_icurrency {โหมดสกุลเงินบวก}
locale_inegcurr {โหมดสกุลเงินลบ}}
locale_sdate {ตัวแยกวันที่}
locale_stime {ตัวแยกเวลา}
locale_sshortdate {สตริงวันที่สั้น}
locale_slongdate {สตริงวันที่ยาว}
locale_stimeformat {สตริงรูปแบบเวลา}
locale_idate {การสั่งซื้อรูปแบบวันที่สั้น ๆ }
locale_ildate {การสั่งซื้อรูปแบบวันที่ยาว}
locale_itime {ตัวระบุรูปแบบเวลา}
locale_itimemarkposn {ตำแหน่งเครื่องหมายเวลา}
locale_icentury {ตัวระบุรูปแบบศตวรรษ (วันที่สั้น)}
locale_itlzero {ศูนย์ชั้นนำในฟิลด์เวลา}
locale_idaylzero {ศูนย์ชั้นนำในฟิลด์วัน (วันที่สั้น)}
locale_imonlzero {ศูนย์ชั้นนำในฟิลด์เดือน (วันที่สั้น)}
locale_s1159 {am designer}
locale_s2359 {pm designer}
locale_icalendartype {ประเภทของตัวระบุปฏิทิน}
locale_ioptionalcalendar {ตัวระบุประเภทปฏิทินเพิ่มเติม}
locale_ifirstdayofweek {วันแรกของสัปดาห์ตัวระบุ}
locale_ifirstweekofyear {สัปดาห์แรกของปีระบุ}
locale_sdayname1 {ชื่อยาวสำหรับวันจันทร์}
locale_sdayname2 {ชื่อยาวสำหรับวันอังคาร}
locale_sdayname3 {ชื่อยาวสำหรับวันพุธ}
locale_sdayname4 {ชื่อยาวสำหรับวันพฤหัสบดี}
locale_sdayname5 {ชื่อยาวสำหรับวันศุกร์}
locale_sdayname6 {ชื่อยาวสำหรับวันเสาร์}
locale_sdayname7 {ชื่อยาวสำหรับวันอาทิตย์}
locale_sabbrevdayname1 {ตัวย่อวันจันทร์}
locale_sabbrevdayname2 {ตัวย่อวันอังคาร}
locale_sabbrevdayname3 {ตัวย่อวันพุธ}
locale_sabbrevdayname4 {ตัวย่อวันพฤหัสบดี}
locale_sabbrevdayname5 {ตัวย่อวันศุกร์}
locale_sabbrevdayname6 {ตัวย่อวันเสาร์}
locale_sabbrevdayname7 {ตัวย่อของวันอาทิตย์}
locale_smonthname1 {ชื่อยาวสำหรับเดือนมกราคม}
locale_smonthname2 {ชื่อยาวสำหรับเดือนกุมภาพันธ์}
locale_smonthname3 {ชื่อยาวสำหรับเดือนมีนาคม}
locale_smonthname4 {ชื่อยาวสำหรับเดือนเมษายน}
locale_smonthname5 {ชื่อยาวสำหรับเดือนพฤษภาคม}
locale_smonthname6 {ชื่อยาวสำหรับเดือนมิถุนายน}
locale_smonthname7 {ชื่อยาวสำหรับเดือนกรกฎาคม}
locale_smonthname8 {ชื่อยาวสำหรับเดือนสิงหาคม}
locale_smonthname9 {ชื่อยาวสำหรับเดือนกันยายน}
locale_smonthname10 {ชื่อยาวสำหรับเดือนตุลาคม}
locale_smonthname11 {ชื่อยาวสำหรับเดือนพฤศจิกายน}
locale_smonthname12 {ชื่อยาวสำหรับเดือนธันวาคม}
locale_smonthname13 {ชื่อยาวสำหรับเดือนที่ 13 (ถ้ามีอยู่)}
locale_sabbrevmonthname1 {ตัวย่อมกราคม}
locale_sabbrevmonthname2 {ตัวย่อกุมภาพันธ์}
locale_sabbrevmonthname3 {ตัวย่อของมีนาคม}
locale_sabbrevmonthname4 {ตัวย่อของเดือนเมษายน}
locale_sabbrevmonthname5 {อาจตัวย่อ}
locale_sabbrevmonthname6 {ตัวย่อมิถุนายน}
locale_sabbrevmonthname7 {ตัวย่อของเดือนกรกฎาคม}
locale_sabbrevmonthname8 {ตัวย่อของเดือนสิงหาคม}
locale_sabbrevmonthname9 {ตัวย่อกันยายน}
locale_sabbrevmonthname10 {ตัวย่อตุลาคม}
locale_sabbrevmonthname11 {ตัวย่อของเดือนพฤศจิกายน}
locale_sabbrevmonthname12 {ตัวย่อธันวาคม}
locale_sabbrevmonthname13 {ตัวย่อของสิบสาม (ถ้ามี)}
locale_spositivesign {เครื่องหมายบวก}
locale_snegativesign {ลบเครื่องหมาย}
locale_ipossignposn {ตำแหน่งบวก}
locale_inegsignposn {ลบตำแหน่ง}
locale_ipossymprecedes {mon sym นำหน้า pos amt}
locale_ipossepbyspace {mon sym sep โดยพื้นที่จาก pos amt}
locale_inegsymprecedes {mon sym นำหน้า neg amt}
locale_inegsepbyspace {mon sym sep โดยพื้นที่จาก neg amt}
locale_fontsignature {font signature}
locale_siso639langname {ชื่อภาษาตัวย่อ iso}}}
locale_siso3166ctryname {ชื่อประเทศตัวย่อ iso}}