Консультация № 55352
13.09.2006, 21:36
0.00 руб.
0 1 1
Здраствуйте Уважаемые эксперты,
У меня простой вопрос, как текст из Edit1.text можно загрузить в массив of Byte?
Заранее Спасибо.

Обсуждение

Неизвестный
13.09.2006, 22:00
общий
это ответ
Здравствуйте, Станислав!
Наверняка, существуют более простые способы, но я могу предложить лишь эти два варианта (см. приложение)
Второй проще, но он небезопасен. Боюсь, что компилятор не будет проверять выход за границы массива.
Ну и еще есть PChar / PAnsiChar, но он приводит к типу char, который в Delphi не является byte-ом и вообще это немного из другой оперы.

Приложение:
var i, l: integer; b: array of byte;// ...begin l := length(Edit1.Text); SetLength(b, l); for i := 1 to l do begin b[i-1] := Ord(Edit1.Text[i]); end;end;либоvar s: string; p: pByteArray;// ...begin s := Edit1.Text; p := @s;// обращаться к элементам так: p^[i]end;
Форма ответа