| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

ZV ©   (2011-03-29 12:26:00) 

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

---

han_malign   (2011-03-29 13:46:00) [1]

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

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

---

Anatoly Podgoretsky   (2011-03-29 13:31:00) [2]

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

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

---

ZV   (2011-03-29 13:18:00) [3]

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

---

ZV   (2011-03-29 13:17:00) [4]

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

---

ZV   (2011-03-29 13:13:00) [5]

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

А это к чему?

---

Anatoly Podgoretsky   (2011-03-29 12:49:00) [6]

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

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

---

brother   (2011-03-29 12:45:00) [7]

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

---

brother   (2011-03-29 12:42:00) [8]

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:41:00) [9]

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:29:00) [10]

chr()?

---

Наверх