Главная страница
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
1-17629
Ptushenko Denis
2002-04-23 07:54
2002.05.06
Где можно взять компанент DirectX для Delphi6 ?


1-17569
HDD
2002-04-22 05:46
2002.05.06
Можно ещё немного помощи


14-17703
Roach
2002-03-18 12:26
2002.05.06
Games


14-17681
SPeller
2002-03-29 10:07
2002.05.06
Стартовая страница в IE


4-17735
guliver
2002-02-28 01:52
2002.05.06
String to PChar