Перевод масива 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]

SetString

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