Транслитерация, DelphiSite

Най-четени

транслитерация

Например, млякото е moloko. И това е. Ето пример за функция, която превежда от български думи на английски. Беше полезна, когато трябваше да прехвърляте файлове на mp3 плейър - не разбира български.

функция Преобразуване ( OldName: низ ): низ ;

var OldNameLength: цяло число;

OldNameLength := дължина ( OldName );

докато започна

if ( OldName [ i ] in [ 'A' .. 'Z' ] + [ 'a' .. 'z' ] + [ '0' .. '9' ] +

тогава s:=s+OldName [ i ] ;

ако OldName [ i ] в [ 'A' , 'B' , 'a' , 'b' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -127 ) ;

if OldName [ i ] in [ 'in' , 'in' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -108 ) ;

ако OldName [ i ] в [ 'G' , 'G' , 'F' , 'G' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -124 ) ;

ако OldName [ i ] в [ 'D' , 'd' , 'E' , 'e' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -128 ) ;

if OldName [ i ] in [ '3' , '3' ] then

s:=s+ chr ( ord ( OldName [ i ] ) -109 ) ;

ако OldName [ i ] в [ 'I' , 'i' , 'K' , 'k' , 'L' , 'l' , 'M' , 'm' , 'H' , 'n' , 'O' , 'o' , 'P' , 'p' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -127 ) ;

if OldName [ i ] in [ 'th' , 'th' ] then

s:=s+ chr ( ord ( OldName [ i ] ) -128 ) ;

ако OldName [ i ] в [ 'P' , 'p' , 'C' , 'c' , 'T' , 't' , 'U' , 'y' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -126 ) ;

if OldName [ i ] in [ 'f' , 'f' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -142 ) ;

if OldName [ i ] в [ 'X' , 'x' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -141 ) ;

if OldName [ i ] in [ 'c' , 'c' ] тогава

s:=s+ хр( ord ( OldName [ i ] ) -147 ) ;

if OldName [ i ] in [ 's' , 's' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -130 ) ;

if OldName [ i ] в [ 'E' , 'e' ] тогава

s:=s+ chr ( ord ( OldName [ i ] ) -152 ) ;

if OldName [ i ] = 'Yo' then s:=s+ 'Yo' ;

if OldName [ i ] = 'yo' then s:=s+ 'yo' ;

if OldName [ i ] = 'Ch' then s:=s+ 'Ch' ;

if OldName [ i ] = 'ch' then s:=s+ 'ch' ;

if OldName [ i ] = 'Sh' then s:=s+ 'Sh' ;

if OldName [ i ] = 'sh' then s:=s+ 'sh' ;

if OldName [ i ] = 'Sch' then s:=s+ 'Sch' ;

if OldName [ i ] = 'sch' then s:=s+ 'sch' ;

if OldName [ i ] in [ 'b' , 'b' , 'b' , 'b' ] then s:=s+ chr (39);