ПК-01 ЛЬВОВ

форум о ПК-01,02 "Львов"
Текущее время: 30 май 2020, 14:16

Forum Games WEB Tape Loader Twitter RSS

Часовой пояс: UTC+03:00




Начать новую тему  Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
СообщениеДобавлено: 08 май 2020, 16:13 
Не в сети

Зарегистрирован: 18 май 2016, 19:55
Сообщения: 61
Нужно проверить функцию кодировки символов ПК-01.
Давным давно у меня эта функция. И уже не помню проверял ли я её на правильность.
Подскажите, с чем её сверить или может кто-то знает наизусть :-) и сразу скажет правильная ли она.
Саму процедуру и результат работы кидаю сюда.
(Процедура может пригодиться какому-то Дельфинщику. :-))
Код:
function Koi(code:Cardinal):char;
// Кодировка во львове КОИ-7 (либо (КОИ-8) позиция строке соответсвует коду в кодировке Львова
const KOD_LV_Str:string='                              _ !"#$%&`()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_юабцдефгхийклмнопярстужвьызшэщч                                                                                                                                 ';
begin Koi:=KOD_LV_Str[code];end;

procedure TForm1.btn1Click(Sender: TObject);
Var c:Cardinal;
begin
For c:=1 to 255 do
begin
  mmo1.Lines.Add('$'+IntToHex(c,2)+ ' ('+IntToStr(c)+')   -   '+Koi(c));
end;
end;

Результат работы
Код:
$01 (1)   -    
$02 (2)   -    
$03 (3)   -    
$04 (4)   -    
$05 (5)   -    
$06 (6)   -    
$07 (7)   -    
$08 (8)   -    
$09 (9)   -    
$0A (10)   -    
$0B (11)   -    
$0C (12)   -    
$0D (13)   -    
$0E (14)   -    
$0F (15)   -    
$10 (16)   -    
$11 (17)   -    
$12 (18)   -    
$13 (19)   -    
$14 (20)   -    
$15 (21)   -    
$16 (22)   -    
$17 (23)   -    
$18 (24)   -    
$19 (25)   -    
$1A (26)   -    
$1B (27)   -    
$1C (28)   -    
$1D (29)   -    
$1E (30)   -    
$1F (31)   -   _
$20 (32)   -    
$21 (33)   -   !
$22 (34)   -   "
$23 (35)   -   #
$24 (36)   -   $
$25 (37)   -   %
$26 (38)   -   &
$27 (39)   -   `
$28 (40)   -   (
$29 (41)   -   )
$2A (42)   -   *
$2B (43)   -   +
$2C (44)   -   ,
$2D (45)   -   -
$2E (46)   -   .
$2F (47)   -   /
$30 (48)   -   0
$31 (49)   -   1
$32 (50)   -   2
$33 (51)   -   3
$34 (52)   -   4
$35 (53)   -   5
$36 (54)   -   6
$37 (55)   -   7
$38 (56)   -   8
$39 (57)   -   9
$3A (58)   -   :
$3B (59)   -   ;
$3C (60)   -   <
$3D (61)   -   =
$3E (62)   -   >
$3F (63)   -   ?
$40 (64)   -   @
$41 (65)   -   A
$42 (66)   -   B
$43 (67)   -   C
$44 (68)   -   D
$45 (69)   -   E
$46 (70)   -   F
$47 (71)   -   G
$48 (72)   -   H
$49 (73)   -   I
$4A (74)   -   J
$4B (75)   -   K
$4C (76)   -   L
$4D (77)   -   M
$4E (78)   -   N
$4F (79)   -   O
$50 (80)   -   P
$51 (81)   -   Q
$52 (82)   -   R
$53 (83)   -   S
$54 (84)   -   T
$55 (85)   -   U
$56 (86)   -   V
$57 (87)   -   W
$58 (88)   -   X
$59 (89)   -   Y
$5A (90)   -   Z
$5B (91)   -   [
$5C (92)   -   \
$5D (93)   -   ]
$5E (94)   -   ^
$5F (95)   -   _
$60 (96)   -   ю
$61 (97)   -   а
$62 (98)   -   б
$63 (99)   -   ц
$64 (100)   -   д
$65 (101)   -   е
$66 (102)   -   ф
$67 (103)   -   г
$68 (104)   -   х
$69 (105)   -   и
$6A (106)   -   й
$6B (107)   -   к
$6C (108)   -   л
$6D (109)   -   м
$6E (110)   -   н
$6F (111)   -   о
$70 (112)   -   п
$71 (113)   -   я
$72 (114)   -   р
$73 (115)   -   с
$74 (116)   -   т
$75 (117)   -   у
$76 (118)   -   ж
$77 (119)   -   в
$78 (120)   -   ь
$79 (121)   -   ы
$7A (122)   -   з
$7B (123)   -   ш
$7C (124)   -   э
$7D (125)   -   щ
$7E (126)   -   ч
$7F (127)   -    
$80 (128)   -    
$81 (129)   -    
$82 (130)   -    
$83 (131)   -    
$84 (132)   -    
$85 (133)   -    
$86 (134)   -    
$87 (135)   -    
$88 (136)   -    
$89 (137)   -    
$8A (138)   -    
$8B (139)   -    
$8C (140)   -    
$8D (141)   -    
$8E (142)   -    
$8F (143)   -    
$90 (144)   -    
$91 (145)   -    
$92 (146)   -    
$93 (147)   -    
$94 (148)   -    
$95 (149)   -    
$96 (150)   -    
$97 (151)   -    
$98 (152)   -    
$99 (153)   -    
$9A (154)   -    
$9B (155)   -    
$9C (156)   -    
$9D (157)   -    
$9E (158)   -    
$9F (159)   -    
$A0 (160)   -    
$A1 (161)   -    
$A2 (162)   -    
$A3 (163)   -    
$A4 (164)   -    
$A5 (165)   -    
$A6 (166)   -    
$A7 (167)   -    
$A8 (168)   -    
$A9 (169)   -    
$AA (170)   -    
$AB (171)   -    
$AC (172)   -    
$AD (173)   -    
$AE (174)   -    
$AF (175)   -    
$B0 (176)   -    
$B1 (177)   -    
$B2 (178)   -    
$B3 (179)   -    
$B4 (180)   -    
$B5 (181)   -    
$B6 (182)   -    
$B7 (183)   -    
$B8 (184)   -    
$B9 (185)   -    
$BA (186)   -    
$BB (187)   -    
$BC (188)   -    
$BD (189)   -    
$BE (190)   -    
$BF (191)   -    
$C0 (192)   -    
$C1 (193)   -    
$C2 (194)   -    
$C3 (195)   -    
$C4 (196)   -    
$C5 (197)   -    
$C6 (198)   -    
$C7 (199)   -    
$C8 (200)   -    
$C9 (201)   -    
$CA (202)   -    
$CB (203)   -    
$CC (204)   -    
$CD (205)   -    
$CE (206)   -    
$CF (207)   -    
$D0 (208)   -    
$D1 (209)   -    
$D2 (210)   -    
$D3 (211)   -    
$D4 (212)   -    
$D5 (213)   -    
$D6 (214)   -    
$D7 (215)   -    
$D8 (216)   -    
$D9 (217)   -    
$DA (218)   -    
$DB (219)   -    
$DC (220)   -    
$DD (221)   -    
$DE (222)   -    
$DF (223)   -    
$E0 (224)   -    
$E1 (225)   -    
$E2 (226)   -    
$E3 (227)   -    
$E4 (228)   -    
$E5 (229)   -    
$E6 (230)   -    
$E7 (231)   -    
$E8 (232)   -    
$E9 (233)   -    
$EA (234)   -    
$EB (235)   -    
$EC (236)   -    
$ED (237)   -    
$EE (238)   -    
$EF (239)   -    
$F0 (240)   -    
$F1 (241)   -    
$F2 (242)   -    
$F3 (243)   -    
$F4 (244)   -    
$F5 (245)   -    
$F6 (246)   -    
$F7 (247)   -    
$F8 (248)   -    
$F9 (249)   -    
$FA (250)   -    
$FB (251)   -    
$FC (252)   -    
$FD (253)   -    
$FE (254)   -    
$FF (255)   -    



Вернуться к началу
Показать сообщения за:  Поле сортировки  
Начать новую тему  Ответить на тему  [ 1 сообщение ] 

Forum Games WEB Tape Loader Twitter RSS

Часовой пояс: UTC+03:00


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 0 гостей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Создано на основе phpBB® Forum Software © phpBB Limited
Русская поддержка phpBB