ASCII

← →
МИФИст © (2002-06-08 19:33) [0]

Подскажите как в Мемо выводить информацию в ASCII виде, например,
чтобы символ $6 выводился как "пиковая масть", а не как прямоугольник или твёрдый знак?

Я пробовал вот так не получается:

StrASCII: String;
Buffer: array[0..1599] of Char;
...
StrASCII:=StrASCII+Chr(Ord(Buffer[i]))+" ";
...
Form1.Memo1.Text:=StrASCII;

← →
MaximatorVeter © (2002-06-08 19:53) [1]

$6 это вроде как число, а не символ ...

← →
MaximatorVeter © (2002-06-08 20:08) [2]

> МИФИст © (08.06.02 19:33)
> Подскажите как в Мемо выводить информацию в ASCII виде

Это значит каждому символу будет соответствовать байтовый код ...

← →
MaximatorVeter © (2002-06-08 20:17) [3]

var StrASCII: String; Buffer: array[0..1599] of Char; i:word; begin for i:=0 to 1599 do StrASCII:=StrASCII+IntToStr(Byte(Buffer[i]))+" "; Memo1.Text:=StrASCII; end;

GL ...

← →
rhf © (2002-06-08 21:11) [4]

а ты используй шрифт другой - например TERMINAL
хотя это наверное отразиться на остальном русском тексте :)

← →
МИФИст © (2002-06-08 21:13) [5]

Мы друг друга не поняли. В шестнадцатеричном виде следующий код:
06 С0 21 05 06, это в Мемо либо вообще не отображается, либо в виде прямоугольников, а должно быть

← →
rhf © (2002-06-08 21:17) [6]

ну ты шрифт смени и увидишь свои картинки :)

← →
MaximatorVeter © (2002-06-08 21:35) [7]

Тогда так:
var StrASCII: String; Buffer: array[0..1599] of Byte; i:word; begin for i:=0 to 1599 do StrASCII:=StrASCII+Chr(Buffer[i])+" "; Memo1.Text:=StrASCII; end;

Но если в Buffer встретиться zero, то дальше ничего не отобразиться (конец строки).
Интересно, а какой это шрифт, у которого на шестой позиции пика?

← →
rhf © (2002-06-08 22:07) [8]

2 MaximatorVeter, ты таблицу ASCII посмотри, в кодировке DOS

← →
MaximatorVeter © (2002-06-08 22:11) [9]

Вот и подошли к разгадке - в Windows Memo то мы "пичку" не получим?

← →
rhf © (2002-06-08 22:39) [10]

2 MaximatorVeter, да получим если поставить шрифт TERMINAL - он же в дос-кодировке все показывает, вот только при этом весь русский текст уйдет в никуда :(
.... короче не самое хорошее решение :)

← →
MaximatorVeter © (2002-06-08 22:47) [11]

> rhf ©

Для шрифта TERMINAL, как и для всех остальных нет кодировки ASCII (cм. свойство Memo1.Font.Charset ...

не важно.....
ты когда-нибудь блокнотом досовские файлы смотрел? Если да, то какой шрифт ставилдля этого? Вот и тут также, ты попробуй и увидишь, что отображаються символы........

просто укажи font - Terminal во время конструирования или
memo1.Font.Name:="Terminal"; memo1.Font.charset:=OEM_CHARSET; memo1.Lines.add(#6);
в райнтайм

Да!

ну поздравляю !!!

ASCII Найти похожие ветки