Function OneColorToColor(Color1,color2:Tcolor):integer
var x:integer
mindeX:integer
r1,g1,b1:integer
ri,gi,bi:integer
delta:Integer
begin
r1:=GetRValue(color1)
g1:=GetGValue(color1)
b1:=GetBValue(color1)
ri:=GetRValue(color2)
gi:=GetGValue(color2)
bi:=GetBValue(color2)
result:=Round(SQRT(power((Ri-R1),2) +
power((Gi-G1),2) + power((Bi
...
Читать дальше »
Просмотров: 1080 |
Добавил: NetSoftWare |
Дата: 18.04.2012
|
|
Пример программы для осуществления трансляции русских букв в латинские Функция получает транслейт их русского текста напишем две функции Function GetRusToEng(RusV:string):string; // Функция получает транслейт их русского текста Function GetEngToRus(EngV:string):string; // Функция получает русский текст из транслейта Function GetRusToEng(RusV:string):string;const rusold:array[1..32] of string[3]=('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ' ,'Ы','Ь','Э','Ю','Я'); rus:array[1..32] of string[3]= ('A','B','V','G','D','E','ZH','Z','I','Y','K','L','M','N','O','P','R','S','T','U','F','KH', 'C', 'CH','SH','SCH',#39,'Y',#39,'E','YU','YA'); var l,x:integer; eng:string; begin eng:=''
...
Читать дальше »
Просмотров: 1936 |
Добавил: NetSoftWare |
Дата: 18.04.2012
|
|
Пример функции перехода из Dos OEM 866 кодировки в Win 1251 без использования функции системы CharToOem var DosCode:array[1..255] of char=( #001,#002,#003,#004,#005,#006,#007,#008,#009,#010,#011, #012,#013,#014,#015,#016,#017,#018,#019,#020,#021,#022,#023,#024,#025, #026,#027,#028,#029,#030,#031,#032,#033,#034,#035,#036, #037,#038,#039,#040,#041,#042,#043,#044,#045,#046,#047,#048,#049,#050, #051,#052,#053,#054,#055,#056,#057,#058,#059,#060,#061, #062,#063,#064,#065,#066,#067,#068,#069,#070,#071,#072,#073,#074,#075, #076,#077,#078,#079,#080,#081,#082,#083,#084,#085,#086, #087,#088,#089,#090,#091,#092,#093,#094,#095,#096,#097,#098,#099,#100, #101,#102,#103,#104,#105,#106,#107,#108,#109,#110,#111, #112,#113,#114,#115,#116,#117,#118,#119,#120,#121,#122, #123,#124,#125,#126,#127,#095,#095,#039,#095,#034,#058,#197, #216,#095,#037,#095,#060,#095,#095,#095,#095,#095,#039,#039, #034,#034,#007,#045,#045,#095,#084,#095,#062,#095,#095
...
Читать дальше »
Просмотров: 3765 |
Добавил: NetSoftWare |
Дата: 18.04.2012
|
|
|
