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

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

Перевод масива ASCII кодов в String

DelphiN! ©   (2006-04-22 22:54:00) 

Имеется масив

Packet: array[0..65536] of Byte;

Масив заполнин ASCII кодами клавиш, примерно так

Packet[0] := 65; //"A"
Packet[1] := 48; //"0"
...

Перевести в строку можно так :

var
 DATA: String;
 i: Integer;
begin
DATA := '';
Setlength(DATA,65536);
move(Packet[0],DATA[1],65536);
for i := 0 to 65536 do
begin
  DATA[i+1] := chr(Packet[i]);
end;

Однако хотелось бы перевести коды без использования цыкла, так как это происзодит очень долго, может кто знает как?

---

Fay   (2006-04-23 11:46:00) [1]

SetString

---

GrayFace   (2006-04-23 10:26:00) [2]

[0..65536] => move(Packet[0],DATA[1],6553 7); или [0..65535]

---

DelphiN!   (2006-04-22 23:07:00) [3]

>  [1] begin...end ©   (22.04.06 23:01)


Точно! Наверное спать пора, заработался ...
Спасибо!

---

begin...end   (2006-04-22 23:01:00) [4]

Цикл можно выбросить, поскольку всю его работу уже сделала Move.

И даже нужно, поскольку, вероятно, он содержит ошибку.

---

Наверх