Консультация № 42470
08.05.2006, 21:52
0.00 руб.
0 1 1
Здравствуйте эксперты!!
Подскажите пожалуйста каким образом можно ASCII перевести в двоичный код и как вообще определить что это именно ASCII?

Обсуждение

Неизвестный
08.05.2006, 22:50
общий
это ответ
Здравствуйте, F Ruslan R!
Если я правильно понял, под "двоичным кодом" Вы имели ввиду число, сопоставленный символу из таблицы ASCII (от 0 до 255). В приложении пример перевода число -> символ ASCII и наоборот. Если Вы на форму бросите memo и кнопку, в обработчик клика которой вставите обработчик из приложения - получите всю таблицу ASCII.
"...и как вообще определить что это именно ASCII?" - да никак. Хотите - считайте за ASCII, не хотите - не считайте.

Приложение:
procedure TForm1.Button1Click(Sender: TObject);var i: Byte; chASCII: char; bytASCII: Byte;begin for i := 0 to 255 do begin //Из числа в ASCII chASCII := Char(i); //Из ASCII в число bytASCII := Ord(chASCII); Memo1.Lines.Add(IntToStr(bytASCII)+ ‘ -> ‘ + chASCII); end;end;
Форма ответа