string to bytes

← →
Slatazan (2002-11-02 03:57) [0]

Как правильно перегнать String в байтовый массив ?
А то у меня из-за этого глючит прога потом после MOVE ...

← →
Пробовал (2002-11-02 05:19) [1]

Move(String[1],ByteMassive[0],Length(String));?

← →
wal (2002-11-02 15:48) [2]

var a:array[0..N]of byte;
p:PChar;
s:String;
begin
p:=@a[0];
s:="Что-то там";
StrCopy(p,PChar(s))
end;

← →
alexta (2002-11-02 15:52) [3]

Можно и проще.
for i:=1 to length(s) do
massiv[i]:=ord(s[i]);

← →
SPeller (2002-11-02 18:20) [4]

> alexta (02.11.02 15:52)
> Можно и проще.
> for i:=1 to length(s) do
> massiv[i]:=ord(s[i]);

Не рационально с точки зрения времени выполнения.

← →
alexta (2002-11-03 00:03) [5]

2 SPeller
Естественно не эфективно. Но если move глючит и не сильно важна скорость то сойдет.

← →
Slatazan (2002-11-03 05:23) [6]

Спасибо.
Move точно глючит - там ведь первый байт длину несет.
Но я вобшем нашел пример в helpe (ранее не-натыкался)
A: array[0..79] of char;

Вобщем
StrPCopy(A, S);//from string S to char mass
Далее накрут t (длины стринга) где
b := byte(A[t]);
write(fileB, b);

:)

string to bytes Найти похожие ветки