Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

Помогите пожалуйста!   Найти похожие ветки 

 
HDD ©   (2002-04-23 15:50) [0]

WINTable: array [1..64] of byte =(
192, 193, 194, 195, 196, 197, 198, 199,
200, 201, 202, 203, 204, 205, 206, 207,
208, 209, 210, 211, 212, 213, 214, 215,
216, 217, 218, 219, 220, 221, 222, 223,
224, 225, 226, 227, 228, 229, 230, 231,
232, 233, 234, 235, 236, 237, 238, 239,
240, 241, 242, 243, 244, 245, 246, 247,
248, 249, 250, 251, 252, 253, 254, 255);

MACTable: array [1..64] of byte =(
128,129,130,131,132,133,134,135,
136,137,138,139,140,141,142,143,
144,145,146,147,148,149,150,151,
152,153,154,155,156,157,158,159,
224,225,226,227,228,229,230,231,
232,233,234,235,236,237,238,239,
240,241,242,243,244,245,246,247,
248,249,250,251,252,253,254,223);

Function WIN2MAC(Ch1: byte): byte;
Var
i: byte;
begin
For i:=1 to 64 do begin
If WINTable[i]=ch1 then begin
WIN2MAC:=MACtable[i];
exit;
end;
end;
WIN2MAC:=ch1;
end;

Подскажите пожалуйста как это к Richedit1 применить!


 
HDD ©   (2002-04-23 16:15) [1]

Гарны хлопчики и дивченки помогите пожалуйста!


 
Johnmen ©   (2002-04-23 16:22) [2]

Вообще-то перекодировка делается не так...
Заведи константный массив ArrayOfCodes [0..255], где на соотв. местах прописан требуемый код.
тогда NewCode:=ArrayOfCodes[OldCode]



Страницы: 1 вся ветка

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
14-17699
greenrul
2002-03-27 17:07
2002.05.06
Вот мы все пишем, пишем, пишем свои утилитки...


1-17645
drnet
2002-04-22 16:51
2002.05.06
Форма не стандартной формы. HELP!!!!!


1-17643
СергейПд
2002-04-23 13:17
2002.05.06
Qreport и shapes


1-17561
Anar
2002-04-22 10:03
2002.05.06
SysTray


4-17731
Анонимщик
2002-03-01 13:52
2002.05.06
Как программно изменить чувствительность мышиного курсора к перемещениям колесика мышки?