|
#1
|
|||
|
|||
String в массив
Добрый день.
Может не правильно назвал тему, извините если что Суть проблемы следующая. Есть функция расчета контрольной суммы, мне необходимо чтобы данные брало не с константы, а с Edit1.Text. Версия Delphi 10.3 Код:
type TData = array[0..7] of byte; implementation {$R *.dfm} function ks(const data: TData): Word; Сейчас выводится вот так: Код:
procedure TForm1.Button1Click(Sender: TObject); const data: TData = ($3A, $1F, $23, $65, $1F, $12, $56, $72); begin Edit2.Text := inttohex(ks(data), 4); end; Помогите пожалуйста кодом. Последний раз редактировалось Istvel, 25.01.2021 в 14:42. |