Windowsun desteklediği ve sizin kullandığınız dil

[P206]

Windowsun desteklediği dilleri ve sizin kullandığınızı göstermeye yarayan bir kod

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
        for i:=0 to languages.Count-1 do
                Memo1.Lines.add(languages.Name[i]);


       Caption:= Languages.NameFromLocaleID[GetSystemDefaultLCID];



end;

[oguzozturk74]

Hocamın kine benzer bir şeyleri ben de eklemek istedim .

TLanguages objesinin Name ve LocaleID özellikleri var , buradan AnsiCompareStr ile ilgili dili de karşılaştırabilirsiniz .
Mesela ingilizce için

Kod: Tümünü seç

Name[IndexOf($0409)] = 'English'

sonucunu döndürüyor.

aşağıda ki kod ise size dilleri listeler.

Kod: Tümünü seç

var
  i: Integer;
  Languages: TLanguages;
begin
  Memo1.Clear;
  Memo1.Lines.Add('Şu an ki dil: ' + IntToHex(SysLocale.DefaultLCID,
4));
  Languages := TLanguages.Create;
  Memo1.Lines.Add('Dil sayısı: ' + IntToStr(Languages.Count));
  for i := 0 to Languages.Count - 1 do
    Memo1.Lines.Add(IntToHex(Languages.LocaleID[i], 4) + ' '#9 +
                    Languages.Ext[i] + ' '#9 + Languages.Name[i]);
  Languages.Free;
end;