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

Перевод масива ASCII кодов в String   Найти похожие ветки 

← →
DelphiN! ©   (2006-04-22 22:54) [0]

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

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;

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

---

← →
begin...end ©   (2006-04-22 23:01) [1]

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

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

---

← →
DelphiN! ©   (2006-04-22 23:07) [2]

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


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

---

← →
GrayFace ©   (2006-04-23 10:26) [3]

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

---

← →
Fay ©   (2006-04-23 11:46) [4]

SetString

---

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

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



Память: 0.45 MB
Время: 0.028 c