Скачать: CL | DM;

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

← →
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 нужно вывести, массив который мне нужно выводить не константа , в массив записывается результат расчета и мне его нужно отобразить в виде символов.

---

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

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

---

← →
Anatoly Podgoretsky ©   (2011-03-29 13:31) [9]

> Мне же не 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.006 c