Как распечатать таблицу ascII в DELPHI (нужна кодировка windows)

Попытался сделать как в pascal:

Код

Procedure Adds(hom,ends:integer); var i1:integer;St1,st2:string; begin St1:=''; For i1:=Hom to Ends do begin Str(i1,st2);St1:=St1+St2+'='+Chr(i1)+' '; end; Form1.ListBox1.Items.Add(St1); end; procedure TForm1.Button1Click(Sender: TObject); begin Adds(128,143); Adds(144,159); Adds(160,175); Adds(176,191); Adds(192,207); Adds(208,223); Adds(224,239); Adds(240,255); ListBox1.Items.SaveToFile('d:\1.dos'); end;

Таблица записывается но в DOS кодировке
Как мне получить таблицу в кодировке Windows?

см. FAQ

>Pegas : см. FAQ

Может меня не поняли .
Мне нужно распечатать таблицу windows кодировки в файл
Например вышенаписанный код печатает :
128=A 129=Б 130=В 131=Г 132=Д 133=Е .... 142=О 143=П

Тебе вот это что ли нужно?
Это коды клавиш, может и не то что требуется, но вещь полезная

Клавиша, Десятичное число, Шестнадцатеричное число, Символическое имя, Сравнение пофункции ord
F1............................. 112.......................... $70.......................... VK_F1
F2............................. 113.......................... $71.......................... VK_F2
F3............................. 114.......................... $72.......................... VK_F3
F4............................. 115.......................... $73.......................... VK_F4
F5............................. 116.......................... $74.......................... VK_F5
F6............................. 117.......................... $75.......................... VK_F6
F7............................. 118.......................... $76.......................... VK_F7
F8............................. 119.......................... $77.......................... VK_F8
F9............................. 120.......................... $78.......................... VK_F9
F10........................... 121.......................... $79.......................... VK_F10
пробел..................... 32............................ $20.......................... VK_SPACE
BackSpace 8 $8 VK_BACK
Tab 9 $9 VK_TAB
Enter 13 $0D VK_RETURN
Shift 16 $10 VK_SHIFT
Ctrl 17 $11 VK_CONTROL
Alt 18 $12 VK_MENU
CapsLock 20 $14 VK_CAPITAL
Esc 27 $1B VK_ESCAPE
Insert 45 $2D VK_INSERT
PageUp 33 $21 VK_PRIOR
PageDown 34 $22 VK_NEXT
End 35 $23 VK_END
Home 36 $24 VK_HOME
37 $25 VK_LEFT
38 $26 VK_UP
39 $27 VK_RIGHT
40 $28 VK_DOWN
Delete 46 $2E VK_DELETE
PrintScreen 44 $2C VK_SNAPSHOT
ScrollLock 145 $91 VK_SCROLL
Pause 19 $13 VK_PAUSE
NumLock 144 $90 VK_NUMLOCK
0,) 48 $30  ord('0')
1 ! 49 $31  ord('1')
2 @ 50 $32  ord('2')
3 # 51 $33  ord('3')
4 $ 52 $34  ord('4')
5 % 53 $35  ord('5')
6 ^ 54 $36  ord('6')
7 & 55 $37  ord('7')
8 * 56 $38  ord('8')
9 ( 57 $39  ord('9')
` ~ 192 $C0 
- _ 189 $BD 
= + 187 $BB 
[ { 219 $DB 
] } 221 $DD 
; : 186 $BA 
' " 222 $DE 
\ | 220 $DC 
, < 188 $BC 
. > 190 $BE 
/ ? 191 $BF 
a,A 65 $41  ord('A')
b,B 66 $42  ord('B')
c,C 67 $43  ord('C')
d,D 68 $44  ord('D')
e,E 69 $45  ord('E')
f,F 70 $46  ord('F')
g,G 71 $47  ord('G')
h,H 72 $48  ord('H')
i,I 73 $49  ord('I')
j,J 74 $4A  ord('J')
k,K 75 $4B  ord('K')
l,L 76 $4C  ord('L')
m,M 77 $4D  ord('M')
n,N 78 $4E  ord('N')
o,O 79 $4F  ord('O')
p,P 80 $50  ord('P')
q,Q 81 $51  ord('Q')
r,R 82 $52  ord('R')
s,S 83 $53  ord('S')
t,T 84 $54  ord('T')
u,U 85 $55  ord('U')
v,V 86 $56  ord('V')
w,W 87 $57  ord('W')
x,X 88 $58  ord('X')
y,Y 89 $59  ord('Y')
z,Z 90 $5A  ord('Z')

На правой клавиатуре при выключенной NumLock 
 
0 96 $60 VK_NUMPAD0
1 97 $61 VK_NUMPAD1
2 98 $62 VK_NUMPAD2
3 99 $63 VK_NUMPAD3
4 100 $64 VK_NUMPAD4
5 101 $65 VK_NUMPAD5
6 102 $66 VK_NUMPAD6
7 103 $67 VK_NUMPAD7
8 104 $68 VK_NUMPAD8
9 105 $69 VK_NUMPAD9
* 106 $6A VK_MULTIPLY
+ 107 $6B VK_ADD
- 109 $6D VK_SUBTRACT
.  110 $6E VK_DECIMAL
/  111 $6F VK_DIVIDE

Эх как не удобно когда нельзя ни табуляцию сделать, ни более одного пробела поставить

Это сообщение отредактировал(а) Cashey - 1.3.2004, 16:45

Цитата(SlaUr @ 26.2.2004, 13:00)

Таблица записывается но в DOS кодировке Как мне получить таблицу в кодировке Windows?

А с чего ты взял, что в ДОС? У меня твой код записал все в win.

CasheyА с чего ты взял, что в ДОС? У меня твой код записал все в win

Вот это интересно.А у меня пишет в ascii а не в ansi вот эта табличка :Slaur page

p.s. Спасибо за коды клавиш (у меня их не было)

SlaUr, так и у тебя в win-кодировке смотри:

Цитата

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=я

SlaUrВот это интересно.А у меня пишет в ascii а не в ansi вот эта табличка ...
лучше ссылку переделать на .rar :My Webpage

CasheySlaUr, так и у тебя в win-кодировке смотри:....

Все врубился : когда я смотрел этот файл я смотрел его c помощью Total Commander (по F3) он автоматически переключался в DOS-CODE и я подумал что это DOS кодировка.

Вообще надо признать что я задал дурацкий вопрос (не подумав).




Это сообщение отредактировал(а) SlaUr - 4.3.2004, 14:26

SlaUr
Бывает