Kodenya adalah sebagai berikut:
fungsi tform1.getLocaleInformation (flag: integer): string;
var
PCLCA: Array [0..20] dari Char;
Mulai
if (getLocaleInfo (locale_system_default, flag, pclca, 19) <= 0) Kemudian mulailah
PCLCA [0]: = #0;
akhir;
Hasil: = PCLCA;
akhir;
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
Mulai
Showmessage (getLocaleInformation (locale_senganguage));
akhir;
Parameter "bendera" dapat mengambil nilai -nilai berikut:
Locale_nouseroverride {Jangan gunakan penggantian pengguna}
Locale_use_cp_acp {gunakan sistem acp}
Locale_ilanguage {kode bahasa}
Locale_slanguage {nama bahasa lokal}
Locale_senglanguage {nama bahasa Inggris dari bahasa}
Locale_sabbrevlangname {nama bahasa singkatan}
Locale_snativivelangname {nama bahasa lokal}
Locale_icountry {country code}
Locale_scountry {name country}
Locale_sengcountry {nama bahasa Inggris negara}
Locale_sabbrevctryname {country name singkatan}
Locale_snativectryname {name country}
Locale_idefaultlanguage {kode bahasa default}
Locale_idefaultcountry {kode negara default}
Locale_idefaultcodepage {halaman kode OEM default}
Locale_idefaultansicodepage {halaman kode ANSI default}
Locale_idefaultmaccodepage {halaman mac default}
Locale_slist {daftar item splitter}
Locale_imeasure {unit pengukuran 0 = meter, 1 = bahasa Inggris}
Locale_sdecimal {simbol titik desimal}
Locale_sthouse {ribu pembagi}
Locale_sgrouping {digit grouping}
Locale_idigits {jumlah digit fraksional}
Locale_ilzero {memimpin nol untuk desimal}
Locale_inegnumber {Mode negatif}
Locale_snativedigits {ascii asli 0-9}
Locale_scurrency {simbol mata uang lokal}
Locale_sintlsymbol {simbol mata uang internasional}
Locale_smondecimalsep {mata uang desimal splitter}
Locale_smonth ribusep {Currency Thousand Divider}
Locale_smongrouping {pengelompokan moneter}
Locale_icurrdigits { # digit moneter lokal}
Locale_iintlcurrdigits { # intl digit moneter}
Locale_icurrency {mode mata uang positif}
Locale_inegcurr {mode mata uang negatif}
Locale_sdate {date splitter}
Locale_stime {waktu splitter}
Locale_sshortdate {string tanggal pendek}
Locale_slongdate {string tanggal panjang}
Locale_stimeformat {string format waktu}
Locale_idate {pemesanan format tanggal pendek}
Locale_ildate {pemesanan format tanggal panjang}
Locale_itime {specifier format waktu}
Locale_itimemarkposn {posisi penanda waktu}
Locale_icentury {century format specifier (tanggal pendek)}
Locale_itlzero {memimpin nol di bidang waktu}
Locale_idaylzero {memimpin nol di bidang hari (tanggal pendek)}
Locale_imonlzero {memimpin nol di bidang bulan (tanggal pendek)}
Locale_s1159 {AM Designer}
Locale_s2359 {PM Designer}
Locale_icalendartype {jenis spesifikasi kalender}
Locale_ioptionalcalendar {specifier tipe kalender tambahan}
Locale_ifirstdayofweek {hari pertama spesifikasi minggu}
Locale_ifirstweekofyear {minggu pertama specifier}
Locale_sdayname1 {nama panjang untuk hari Senin}
Locale_sdayname2 {nama panjang untuk hari Selasa}
Locale_sdayname3 {nama panjang untuk hari Rabu}
Locale_sdayname4 {nama panjang untuk hari Kamis}
Locale_sdayname5 {nama panjang untuk hari Jumat}
Locale_sdayname6 {nama panjang untuk hari Sabtu}
Locale_sdayname7 {nama panjang untuk hari Minggu}
Locale_sabbrevdayname1 {singkatan Senin}
Locale_sabbrevdayname2 {singkatan Selasa}
Locale_sabbrevdayname3 {singkatan Rabu}
Locale_sabbrevdayname4 {Kamis singkatan}
Locale_sabbrevdayname5 {singkatan Jumat}
Locale_sabbrevdayname6 {singkatan hari Sabtu}
Locale_sabbrevdayname7 {singkatan hari Minggu}
Locale_smonthname1 {nama panjang untuk Januari}
Locale_smonthname2 {nama panjang untuk Februari}
Locale_smonthname3 {nama panjang untuk Maret}
Locale_smonthname4 {nama panjang untuk April}
Locale_smonthname5 {nama panjang untuk Mei}
Locale_smonthname6 {nama panjang untuk Juni}
Locale_smonthname7 {nama panjang untuk Juli}
Locale_smonthname8 {nama panjang untuk Agustus}
Locale_smonthname9 {nama panjang untuk September}
Locale_smonthname10 {nama panjang untuk Oktober}
Locale_smonthname11 {nama panjang untuk November}
Locale_smonthname12 {nama panjang untuk Desember}
Locale_smonthname13 {nama panjang untuk bulan ke -13 (jika ada)}
Locale_sabbrevmonthname1 {singkatan Januari}
Locale_sabbrevmonthname2 {singkatan Februari}
Locale_sabbrevmonthname3 {singkatan March}
Locale_sabbrevmonthname4 {singkatan April}
Locale_sabbrevmonthname5 {may singkatan}
Locale_sabbrevmonthname6 {singkatan Juni}
Locale_sabbrevmonthname7 {singkatan Juli}
Locale_sabbrevmonthname8 {singkatan Agustus}
Locale_sabbrevmonthname9 {singkatan September}
Locale_sabbrevmonthname10 {singkatan Oktober}
Locale_sabbrevmonthname11 {singkatan November}
Locale_sabbrevmonthname12 {singkatan Desember}
Locale_sabbrevmonthname13 {singkatan dari tiga belas (jika ada)}
Locale_spositivesign {tanda positif}
Locale_snegationalsign {minus tanda}
Locale_ipossignposn {posisi positif}
Locale_inegsignposn {posisi minus}
Locale_ipossymprecedes {mon sym mendahului pos amt}
Locale_ipossepbyspace {mon sym sep dengan ruang dari pos amt}
Locale_inegsymprecedes {mon sym mendahului neg amt}
Locale_inegsepbyspace {mon sym sep dengan spasi dari neg amt}
Locale_fontsignature {font Signature}
Locale_siso639langname {nama bahasa singkatan iso}
Locale_siso3166ctryname {nama negara singkatan iso}