1. VIP Access : 6 months - 20$ --- 1 Year -30$ --- 2 Years - 50$ --- Gold User VIP for life - 150 $--- For donation click donate button in page and donate with paypal for VIP Access. IF YOU HAVE PROBLEM WITH DONATE FROM FORUM PLEASE USE THIS EMAIL FOR DONATION tango-net@freenet.de.
    Dismiss Notice
Dismiss Notice

REGISTRATION IS AFTER ADMIN ACTIVATION

DONATIONS WITH PAYPAL CLICK TO BUTTON

6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$

DONATIONS WITH Bitcoin Address:3NRs3CK3fhXifrNYxHEZKpETDd9vNLMsMD

Dismiss Notice
The registration is approved by the Administrator. It takes about 1 day to approve your registration
Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

Source Yandex Translate Unit

Discussion in 'Delphi Programming' started by AdminDF, Oct 11, 2018 at 12:52 PM.

  1. AdminDF
    Online

    AdminDFAdminDF is a Verified Member Delphifan - Kings of programming Staff Member DF Staff

    Joined:
    Jan 23, 2014
    Messages:
    10,070
    Likes Received:
    13,996
    Liked:
    44
    Trophy Points:
    313
    Code:
    interface
    uses
    System.NetEncoding, System.SysUtils, System.Classes, System.Net.HttpClientComponent, Xml.XMLDoc, System.StrUtils;
    type
    TrtmTranslatorYandex = class(TComponent)
       type
         TrtmYandexLangs = ( Afrikanca, Almanca, Amharca, Arapca, Arnavutca, Azerice, Baskca, Baskurtca, BatiMarice
                           , Belarusca, Bengalce, Birmanca, Bosnakca, Bulgarca, Cavaca, Cekce, Cince, Danca, Elfce
                           , Endonezce, Ermenice, Esperanto, Estonca, Farsca, Felemenkce, Fince, Fransizca, Galce
                           , Galicyaca, Gucaratca, Gurcuce, Haitice, Hirvatca, Hintce, Ibranice, Ingilizce, Irlandaca
                           , Keltce, Ispanyolca, Isvecce, Italyanca, Izlandaca, Japonca, Kannadaca, Katalanca, Kazakca
                           , Khmerce, Kirgizca, Korece, Laoca, Latince, Lehce, Letonca, Litvanca, Luksemburgca, Macarca
                           , Makedonca, Malayalamca, Malayca, Malgasca, Maltaca, Maorice, Marathi, Marice, Mogolca, Nepali
                           , Norvecce, Özbekce, Papiamento, Pencapca, Portekizce, Romence, Rusca, Sabuanca, Seylanca
                           , Sirpca, Slovakca, Slovence, Sundaca, Svahili, Tacikce, Tagalogca, Tamilce, Tatarca, Taylandca
                           , Teluguca, Turkce, Udmurtca, Ukraynaca, Urduca, Vietnamca, Xhosaca, Yidis, Yunanca
                           );
         TrtmYandexKangsHelper = record helper for TrtmYandexLangs
           public
             function toString: String;
             procedure toLang(aLang: String);
         end;
       private
         FOwner                : TComponent;
         FAPIKey               : String;
         FNetHTTP              : TNetHTTPClient;
         FEncoder              : TURLEncoding;
         FNehir                : TMemoryStream;
         FXmlDOC               : TXMLDocument;
         FCevap                : TStringList;
         FLangSource           : TrtmYandexLangs;
         FLangTarget           : TrtmYandexLangs;
         FText                 : String;
         FTextOut              : String;
         FURL                  : String;
         FResponseCode         : Integer;
         FResponseText         : String;
         FOnBeforeTranslate    : TNotifyEvent;
         FOnAfterTranslate     : TNotifyEvent;
         FOnMaxText            : TNotifyEvent;
         FOnDailyLimit         : TNotifyEvent;
         FOnInvalidKey         : TNotifyEvent;
         FOnNotSupported       : TNotifyEvent;
         FOnNotTranslated      : TNotifyEvent;
         FOnComplete           : TNotifyEvent;
         FOnBlockedKey         : TNotifyEvent;
         FOnInvalidParameter   : TNotifyEvent;
         function GetXMLResult: String;
         procedure SetLangSource(const Value: TrtmYandexLangs);
         procedure SetLangTarget(const Value: TrtmYandexLangs);
         procedure SetText(const Value: String);
         procedure SetAPIKey(const Value: String);
       protected
         procedure TranslateTextOut;
       public
         constructor Create(aOwner: TComponent); override;
         destructor Destroy; override;
         function Translate(const aText: String): String;
       published
         property APIKey             : String          read FAPIKey              write SetAPIKey;
         property LangSource         : TrtmYandexLangs read FLangSource          write SetLangSource;
         property LangTarget         : TrtmYandexLangs read FLangTarget          write SetLangTarget;
         property Text               : String          read FText                write SetText;
         property TextOut            : String          read FTextOut;
         property URL                : String          read FURL;
         property XMLResult          : String          read GetXMLResult;
         property ResponseCode       : Integer         read FResponseCode;
         property ResponseText       : String          read FResponseText;
         property OnBeforeTranslate  : TNotifyEvent    read FOnBeforeTranslate   write FOnBeforeTranslate;
         property OnAfterTranslate   : TNotifyEvent    read FOnAfterTranslate    write FOnAfterTranslate;
         property OnComplete         : TNotifyEvent    read FOnComplete          write FOnComplete;
         property OnInvalidKey       : TNotifyEvent    read FOnInvalidKey        write FOnInvalidKey;
         property OnBlockedKey       : TNotifyEvent    read FOnBlockedKey        write FOnBlockedKey;
         property OnDailyLimit       : TNotifyEvent    read FOnDailyLimit        write FOnDailyLimit;
         property OnMaxText          : TNotifyEvent    read FOnMaxText           write FOnMaxText;
         property OnNotTranslated    : TNotifyEvent    read FOnNotTranslated     write FOnNotTranslated;
         property OnNotSupported     : TNotifyEvent    read FOnNotSupported      write FOnNotSupported;
         property OnInvalidParameter : TNotifyEvent    read FOnInvalidParameter  write FOnInvalidParameter;
    end;
     
    realist likes this.
  2. AdminDF
    Online

    AdminDFAdminDF is a Verified Member Delphifan - Kings of programming Staff Member DF Staff

    Joined:
    Jan 23, 2014
    Messages:
    10,070
    Likes Received:
    13,996
    Liked:
    44
    Trophy Points:
    313
    Code:
    procedure Register;
    implementation
    procedure Register;
    begin
    RegisterComponents('Potansif', [TrtmTranslatorYandex]);
    end;
    { TrtmTranslatorYandex }
    constructor TrtmTranslatorYandex.Create(aOwner: TComponent);
    begin
    inherited Create(aOwner);
    FOwner        := aOwner;
    FNetHTTP      := TNetHTTPClient.Create(Self);
    FEncoder      := TURLEncoding.Create;
    FNehir        := TMemoryStream.Create;
    FXmlDOC       := TXMLDocument.Create(Self);
    FCevap        := TStringList.Create;
    FLangSource   := Turkce;
    FLangTarget   := Ingilizce;
    FText         := '';
    FResponseCode := 0; // Başlangıç değeridir.
    end;
    destructor TrtmTranslatorYandex.Destroy;
    begin
    FreeAndNil(FCevap);
    FreeAndNil(FXmlDOC);
    FreeAndNil(FNehir);
    FreeAndNil(FEncoder);
    FreeAndNil(FNetHTTP);
    inherited Destroy;
    end;
    function TrtmTranslatorYandex.GetXMLResult: String;
    begin
    Result := FCevap.Text;
    end;
    procedure TrtmTranslatorYandex.SetAPIKey(const Value: String);
    begin
    FAPIKey := Value;
    TranslateTextOut;
    end;
    procedure TrtmTranslatorYandex.SetLangSource(const Value: TrtmYandexLangs);
    begin
    FLangSource := Value;
    TranslateTextOut;
    end;
    procedure TrtmTranslatorYandex.SetLangTarget(const Value: TrtmYandexLangs);
    begin
    FLangTarget := Value;
    TranslateTextOut;
    end;
    procedure TrtmTranslatorYandex.SetText(const Value: String);
    begin
    FText := Value.Trim;
    TranslateTextOut;
    end;
    function TrtmTranslatorYandex.Translate(const aText: String): String;
    begin
    if Assigned(FOnBeforeTranslate) then FOnBeforeTranslate(Self);
    FURL := 'https://translate.yandex.net';
    if (FLangSource = FLangTarget) then begin
         Result := aText;
    end else
    if (FAPIKey.Trim.IsEmpty = False) and (aText.Trim.IsEmpty = False) then begin
         if NOT (csDesigning in Self.ComponentState) then begin
                 FURL := Format( 'https://translate.yandex.net/api/v1.5/tr/translate'
                               + '?key=%0:s'
                               + '&lang=%1:s-%2:s'
                               + '&text=%3:s',
                               [ {0} FAPIKey
                                , {1} FLangSource.toString
                                , {2} FLangTarget.toString
                                , {3} FEncoder.Encode(aText)
                                ]);
                 FNehir.Clear;
                 FNetHTTP.Get(FURL, FNehir);
                 FNehir.Position  := 0;
                 FCevap.LoadFromStream(FNehir);
                 FXmlDOC.Active   := False;
                 FXmlDOC.XML.Text := UTF8ToWideString(FCevap.Text); // 16 bitlik ascii karakterlerini göstermek içindir...
                 FXmlDOC.Active   := True;
                 FResponseCode    := StrToIntDef(FXMLDoc.DocumentElement.AttributeNodes.FindNode('code').Text, 0);
                 FResponseText := '';
                 case  FResponseCode  of //  https://tech.yandex.com/translate/doc/dg...age/#codes
                       0..
                       200: FResponseText := 'Operation completed successfully';
                       401: FResponseText := 'Invalid API key';
                       402: FResponseText := 'Blocked API key';
                       404: FResponseText := 'Exceeded the daily limit on the amount of translated text';
                       413: FResponseText := 'Exceeded the maximum text size';
                       422: FResponseText := 'The text cannot be translated';
                       501: FResponseText := 'The specified translation direction is not supported';
                       502: FResponseText := 'Invalid parameter';
                 end;
                 Result := IfThen( FXmlDOC.DocumentElement.ChildNodes.Count = 0
                                 , FResponseText
                                 , FXmlDOC.DocumentElement.ChildNodes['text'].Text
                                 );
                 case  FResponseCode  of
                       0..
                       200: if Assigned(FOnComplete)         then FOnComplete(Self);
                       401: if Assigned(FOnInvalidKey)       then FOnInvalidKey(Self);
                       402: if Assigned(FOnBlockedKey)       then FOnBlockedKey(Self);
                       404: if Assigned(FOnDailyLimit)       then FOnDailyLimit(Self);
                       413: if Assigned(FOnMaxText)          then FOnMaxText(Self);
                       422: if Assigned(FOnNotTranslated)    then FOnNotTranslated(Self);
                       501: if Assigned(FOnNotSupported)     then FOnNotSupported(Self);
                       502: if Assigned(FOnInvalidParameter) then FOnInvalidParameter(Self);
                 end;
         end else begin
             Result := 'Sadece Runtime desteklenir.';
         end;
    end else begin
         Result := '';
    end;
     
    realist likes this.
  3. AdminDF
    Online

    AdminDFAdminDF is a Verified Member Delphifan - Kings of programming Staff Member DF Staff

    Joined:
    Jan 23, 2014
    Messages:
    10,070
    Likes Received:
    13,996
    Liked:
    44
    Trophy Points:
    313
    Code:
     if Assigned(FOnAfterTranslate) then FOnAfterTranslate(Self);
    end;
    procedure TrtmTranslatorYandex.TranslateTextOut;
    begin
    FTextOut := Translate(FText.Trim);
    end;
    { TrtmTranslatorYandex.TrtmYandexKangsHelper }
    procedure TrtmTranslatorYandex.TrtmYandexKangsHelper.toLang(aLang: String);
    function &in(aAranan: string; aListe: Array of string): Boolean;
    var
       S: String;
    begin
       Result := False;
       for S in aListe do if (S = aAranan) then Exit(True);
    end;
    begin
    if &in(aLang, ['af', 'Afrikanca', 'Afrikanca'])       then Self := Afrikanca    else
    if &in(aLang, ['de', 'Almanca', 'Almanca'])           then Self := Almanca      else
    if &in(aLang, ['am', 'Amharca', 'Amharca'])           then Self := Amharca      else
    if &in(aLang, ['ar', 'Arapça', 'Arapca'])             then Self := Arapca       else
    if &in(aLang, ['sq', 'Arnavutça', 'Arnavutca'])       then Self := Arnavutca    else
    if &in(aLang, ['az', 'Azerice', 'Azerice'])           then Self := Azerice      else
    if &in(aLang, ['eu', 'Baskça', 'Baskca'])             then Self := Baskca       else
    if &in(aLang, ['ba', 'Başkurtça', 'Baskurtca'])       then Self := Baskurtca    else
    if &in(aLang, ['mrj', 'BatiMarice', 'BatiMarice'])    then Self := BatiMarice   else
    if &in(aLang, ['be', 'Belarusça', 'Belarusca'])       then Self := Belarusca    else
    if &in(aLang, ['bn', 'Bengalce', 'Bengalce'])         then Self := Bengalce     else
    if &in(aLang, ['my', 'Birmanca', 'Birmanca'])         then Self := Birmanca     else
    if &in(aLang, ['bs', 'Boşnakça', 'Bosnakca'])         then Self := Bosnakca     else
    if &in(aLang, ['bg', 'Bulgarca', 'Bulgarca'])         then Self := Bulgarca     else
    if &in(aLang, ['jv', 'Cavaca', 'Cavaca'])             then Self := Cavaca       else
    if &in(aLang, ['cs', 'Çekçe', 'Cekce'])               then Self := Cekce        else
    if &in(aLang, ['zh', 'Çince', 'Cince'])               then Self := Cince        else
    if &in(aLang, ['da', 'Danca', 'Danca'])               then Self := Danca        else
    if &in(aLang, ['sjn', 'Elfçe', 'Elfce'])              then Self := Elfce        else
    if &in(aLang, ['id', 'Endonezce', 'Endonezce'])       then Self := Endonezce    else
    if &in(aLang, ['hy', 'Ermenice', 'Ermenice'])         then Self := Ermenice     else
    if &in(aLang, ['eo', 'Esperanto', 'Esperanto'])       then Self := Esperanto    else
    if &in(aLang, ['et', 'Estonca', 'Estonca'])           then Self := Estonca      else
    if &in(aLang, ['fa', 'Farsça', 'Farsca'])             then Self := Farsca       else
    if &in(aLang, ['nl', 'Felemenkçe', 'Felemenkce'])     then Self := Felemenkce   else
    if &in(aLang, ['fi', 'Fince', 'Fince'])               then Self := Fince        else
    if &in(aLang, ['fr', 'Fransızca', 'Fransizca'])       then Self := Fransizca    else
    if &in(aLang, ['cy', 'Galce', 'Galce'])               then Self := Galce        else
    if &in(aLang, ['gl', 'Galiçyaca', 'Galicyaca'])       then Self := Galicyaca    else
    if &in(aLang, ['gu', 'Gucaratça', 'Gucaratca'])       then Self := Gucaratca    else
    if &in(aLang, ['ka', 'Gürcüce', 'Gurcuce'])           then Self := Gurcuce      else
    if &in(aLang, ['ht', 'Haitice', 'Haitice'])           then Self := Haitice      else
    if &in(aLang, ['hr', 'Hırvatça', 'Hirvatca'])         then Self := Hirvatca     else
    if &in(aLang, ['hi', 'Hintçe', 'Hintce'])             then Self := Hintce       else
    if &in(aLang, ['he', 'İbranice', 'Ibranice'])         then Self := Ibranice     else
    if &in(aLang, ['en', 'İngilizce', 'Ingilizce'])       then Self := Ingilizce    else
    if &in(aLang, ['ga', 'İrlandaca', 'Irlandaca'])       then Self := Irlandaca    else
    if &in(aLang, ['gd', 'Keltçe', 'Keltce'])             then Self := Keltce       else
    if &in(aLang, ['es', 'İspanyolca', 'Ispanyolca'])     then Self := Ispanyolca   else
    if &in(aLang, ['sv', 'İsveçce', 'Isvecce'])           then Self := Isvecce      else
    if &in(aLang, ['it', 'İtalyanca', 'Italyanca'])       then Self := Italyanca    else
    if &in(aLang, ['is', 'İzlandaca', 'Izlandaca'])       then Self := Izlandaca    else
    if &in(aLang, ['ja', 'Japonca', 'Japonca'])           then Self := Japonca      else
    if &in(aLang, ['kn', 'Kannadaca', 'Kannadaca'])       then Self := Kannadaca    else
    if &in(aLang, ['ca', 'Katalanca', 'Katalanca'])       then Self := Katalanca    else
    if &in(aLang, ['kk', 'Kazakça', 'Kazakca'])           then Self := Kazakca      else
    if &in(aLang, ['km', 'Khmerce', 'Khmerce'])           then Self := Khmerce      else
    if &in(aLang, ['ky', 'Kırgızca', 'Kirgizca'])         then Self := Kirgizca     else
    if &in(aLang, ['ko', 'Korece', 'Korece'])             then Self := Korece       else
    if &in(aLang, ['lo', 'Laoca', 'Laoca'])               then Self := Laoca        else
    if &in(aLang, ['la', 'Latince', 'Latince'])           then Self := Latince      else
    if &in(aLang, ['pl', 'Lehçe', 'Lehce'])               then Self := Lehce        else
    if &in(aLang, ['lv', 'Letonca', 'Letonca'])           then Self := Letonca      else
    if &in(aLang, ['lt', 'Litvanca', 'Litvanca'])         then Self := Litvanca     else
    if &in(aLang, ['lb', 'Lüksemburgca', 'Luksemburgca']) then Self := Luksemburgca else
    if &in(aLang, ['hu', 'Macarca', 'Macarca'])           then Self := Macarca      else
    if &in(aLang, ['mk', 'Makedonca', 'Makedonca'])       then Self := Makedonca    else
    if &in(aLang, ['ml', 'Malayalamca', 'Malayalamca'])   then Self := Malayalamca  else
    if &in(aLang, ['ms', 'Malayca', 'Malayca'])           then Self := Malayca      else
    if &in(aLang, ['mg', 'Malgaşça', 'Malgasca'])         then Self := Malgasca     else
    if &in(aLang, ['mt', 'Maltaca', 'Maltaca'])           then Self := Maltaca      else
    if &in(aLang, ['mi', 'Maorice', 'Maorice'])           then Self := Maorice      else
    if &in(aLang, ['mr', 'Marathi', 'Marathi'])           then Self := Marathi      else
    if &in(aLang, ['mhr', 'Marice', 'Marice'])            then Self := Marice       else
    if &in(aLang, ['mn', 'Moğolca', 'Mogolca'])           then Self := Mogolca      else
    if &in(aLang, ['ne', 'Nepali', 'Nepali'])             then Self := Nepali       else
    if &in(aLang, ['no', 'Norveççe', 'Norvecce'])         then Self := Norvecce     else
    if &in(aLang, ['uz', 'Özbekçe', 'Özbekce'])           then Self := Özbekce      else
    if &in(aLang, ['pap', 'Papiamento', 'Papiamento'])    then Self := Papiamento   else
    if &in(aLang, ['pa', 'Pencapça', 'Pencapca'])         then Self := Pencapca     else
    if &in(aLang, ['pt', 'Portekizce', 'Portekizce'])     then Self := Portekizce   else
    if &in(aLang, ['ro', 'Romence', 'Romence'])           then Self := Romence      else
    if &in(aLang, ['ru', 'Rusça', 'Rusca'])               then Self := Rusca        else
    if &in(aLang, ['ceb', 'Sabuanca', 'Sabuanca'])        then Self := Sabuanca     else
    if &in(aLang, ['si', 'Seylanca', 'Seylanca'])         then Self := Seylanca     else
    if &in(aLang, ['sr', 'Sırpça', 'Sirpca'])             then Self := Sirpca       else
    if &in(aLang, ['sk', 'Slovakça', 'Slovakca'])         then Self := Slovakca     else
    if &in(aLang, ['sl', 'Slovence', 'Slovence'])         then Self := Slovence     else
    if &in(aLang, ['su', 'Sundaca', 'Sundaca'])           then Self := Sundaca      else
    if &in(aLang, ['sw', 'Svahili', 'Svahili'])           then Self := Svahili      else
    if &in(aLang, ['tg', 'Tacikçe', 'Tacikce'])           then Self := Tacikce      else
    if &in(aLang, ['tl', 'Tagalogca', 'Tagalogca'])       then Self := Tagalogca    else
    if &in(aLang, ['ta', 'Tamilce', 'Tamilce'])           then Self := Tamilce      else
    if &in(aLang, ['tt', 'Tatarca', 'Tatarca'])           then Self := Tatarca      else
    if &in(aLang, ['th', 'Taylandça', 'Taylandca'])       then Self := Taylandca    else
    if &in(aLang, ['te', 'Teluguca', 'Teluguca'])         then Self := Teluguca     else
    if &in(aLang, ['tr', 'Türkçe', 'Turkce'])             then Self := Turkce       else
    if &in(aLang, ['udm', 'Udmurtça', 'Udmurtca'])        then Self := Udmurtca     else
    if &in(aLang, ['uk', 'Ukraynaca', 'Ukraynaca'])       then Self := Ukraynaca    else
    if &in(aLang, ['ur', 'Urduca', 'Urduca'])             then Self := Urduca       else
    if &in(aLang, ['vi', 'Vietnamca', 'Vietnamca'])       then Self := Vietnamca    else
    if &in(aLang, ['xh', 'Xhosaca', 'Xhosaca'])           then Self := Xhosaca      else
    if &in(aLang, ['yi', 'Yidiş', 'Yidis'])               then Self := Yidis        else
    if &in(aLang, ['el', 'Yunanca', 'Yunanca'])           then Self := Yunanca      else
    begin
       { Standart else sonu }
       Self := Self;
    end;
    end;
     
    realist likes this.
  4. AdminDF
    Online

    AdminDFAdminDF is a Verified Member Delphifan - Kings of programming Staff Member DF Staff

    Joined:
    Jan 23, 2014
    Messages:
    10,070
    Likes Received:
    13,996
    Liked:
    44
    Trophy Points:
    313
    Code:
    function TrtmTranslatorYandex.TrtmYandexKangsHelper.toString: String;
    begin
    case  Self  of
           Afrikanca         : Result := 'af';
           Almanca           : Result := 'de';
           Amharca           : Result := 'am';
           Arapca            : Result := 'ar';
           Arnavutca         : Result := 'sq';
           Azerice           : Result := 'az';
           Baskca            : Result := 'eu';
           Baskurtca         : Result := 'ba';
           BatiMarice        : Result := 'mrj';
           Belarusca         : Result := 'be';
           Bengalce          : Result := 'bn';
           Birmanca          : Result := 'my';
           Bosnakca          : Result := 'bs';
           Bulgarca          : Result := 'bg';
           Cavaca            : Result := 'jv';
           Cekce             : Result := 'cs';
           Cince             : Result := 'zh';
           Danca             : Result := 'da';
           Elfce             : Result := 'sjn';
           Endonezce         : Result := 'id';
           Ermenice          : Result := 'hy';
           Esperanto         : Result := 'eo';
           Estonca           : Result := 'et';
           Farsca            : Result := 'fa';
           Felemenkce        : Result := 'nl';
           Fince             : Result := 'fi';
           Fransizca         : Result := 'fr';
           Galce             : Result := 'cy';
           Galicyaca         : Result := 'gl';
           Gucaratca         : Result := 'gu';
           Gurcuce           : Result := 'ka';
           Haitice           : Result := 'ht';
           Hirvatca          : Result := 'hr';
           Hintce            : Result := 'hi';
           Ibranice          : Result := 'he';
           Ingilizce         : Result := 'en';
           Irlandaca         : Result := 'ga';
           Keltce            : Result := 'gd';
           Ispanyolca        : Result := 'es';
           Isvecce           : Result := 'sv';
           Italyanca         : Result := 'it';
           Izlandaca         : Result := 'is';
           Japonca           : Result := 'ja';
           Kannadaca         : Result := 'kn';
           Katalanca         : Result := 'ca';
           Kazakca           : Result := 'kk';
           Khmerce           : Result := 'km';
           Kirgizca          : Result := 'ky';
           Korece            : Result := 'ko';
           Laoca             : Result := 'lo';
           Latince           : Result := 'la';
           Lehce             : Result := 'pl';
           Letonca           : Result := 'lv';
           Litvanca          : Result := 'lt';
           Luksemburgca      : Result := 'lb';
           Macarca           : Result := 'hu';
           Makedonca         : Result := 'mk';
           Malayalamca       : Result := 'ml';
           Malayca           : Result := 'ms';
           Malgasca          : Result := 'mg';
           Maltaca           : Result := 'mt';
           Maorice           : Result := 'mi';
           Marathi           : Result := 'mr';
           Marice            : Result := 'mhr';
           Mogolca           : Result := 'mn';
           Nepali            : Result := 'ne';
           Norvecce          : Result := 'no';
           Özbekce           : Result := 'uz';
           Papiamento        : Result := 'pap';
           Pencapca          : Result := 'pa';
           Portekizce        : Result := 'pt';
           Romence           : Result := 'ro';
           Rusca             : Result := 'ru';
           Sabuanca          : Result := 'ceb';
           Seylanca          : Result := 'si';
           Sirpca            : Result := 'sr';
           Slovakca          : Result := 'sk';
           Slovence          : Result := 'sl';
           Sundaca           : Result := 'su';
           Svahili           : Result := 'sw';
           Tacikce           : Result := 'tg';
           Tagalogca         : Result := 'tl';
           Tamilce           : Result := 'ta';
           Tatarca           : Result := 'tt';
           Taylandca         : Result := 'th';
           Teluguca          : Result := 'te';
           Turkce            : Result := 'tr';
           Udmurtca          : Result := 'udm';
           Ukraynaca         : Result := 'uk';
           Urduca            : Result := 'ur';
           Vietnamca         : Result := 'vi';
           Xhosaca           : Result := 'xh';
           Yidis             : Result := 'yi';
           Yunanca           : Result := 'el';
    end;
    end;
    end.
     
    realist likes this.

Share This Page