Как вывести значение переменной в виде символа

← →
ZV © (2011-03-29 12:26) [0]

Есть массив cryp :array[0..3] of byte = (97,98,99,100);/CODE> Нужно вывести значение в поле Memo в виде ANSII символов, то есть a,b,c,d; Какой функцией это можно сделать?

← →
brother © (2011-03-29 12:29) [1]

chr()?

← →
brother © (2011-03-29 12:41) [2]

procedure TForm1.Button1Click(Sender: TObject);
const
cryp : array[0..3] of byte = (97,98,99,100);
var
i: integer;
s: string;
begin
s:= "";
memo1.Lines.Clear;

for i:= Low(cryp) to High(cryp) do
s:= s + Chr(cryp[i]);

memo1.Lines.Add(s);
end;

← →
brother © (2011-03-29 12:42) [3]

procedure TForm1.Button1Click(Sender: TObject); const cryp : array[0..3] of byte = (97,98,99,100); var i: integer; begin memo1.Lines.Clear; for i:= Low(cryp) to High(cryp) do memo1.Lines.Add(Chr(cryp[i])); end;
:)

← →
brother © (2011-03-29 12:45) [4]

запятые расставишь сам))))))))))))))))

← →
Anatoly Podgoretsky © (2011-03-29 12:49) [5]

> ZV (29.03.2011 12:26:00) [0]

Memo.Lines.Add("a, b,c,d;");

← →
ZV © (2011-03-29 13:13) [6]

> Memo.Lines.Add("a, b,c,d;");

А это к чему?

← →
ZV © (2011-03-29 13:17) [7]

Мне же не a,b,c,d нужно вывести, массив который мне нужно выводить не константа , в массив записывается результат расчета и мне его нужно отобразить в виде символов.

brother спасибо, все работает. Получается что нужно было сделать преобразование типов переменных.Да торможу.

> Мне же не a,b,c,d нужно вывести, массив который мне нужно
> выводить не константа , в массив записывается результат
> расчета и мне его нужно отобразить в виде символов.

Вот так и надо было ставить вопрос.

← →
han_malign (2011-03-29 13:46) [10]

SetString(s, PAsniChar(@somearray[low(somearray)]), sizeof(somearray));

__cryp :array[0..sizeof(cryp)-1] of char absolute cryp;
...
memo1.Text:= __cryp;

Как вывести значение переменной в виде символа Найти похожие ветки