Как да се покаже стойността като променлива характер
Има cryp масив: масив [0..3] на байт # XA0 = (97,98,99,100); / КОД>
Вие искате да се покаже стойност в полето Бележка под формата # XA0; ANSII символи, например А, В, С, D; Каква е функцията на това може да се направи?
процедура TForm1.Button1Click (Sender: TObject);
конст
# XA0; cryp. масив [0..3] на байт # XA0 = (97,98,99,100);
Var
# XA0; и: цяло число;
# XA0; ите: низ;
започвам
# XA0; S: = "";
# XA0; memo1.Lines.Clear;
# XA0, защото: = Low (cryp) към висока (cryp) направи
# XA0; # XA0; S: = S + Chr (cryp [Ь]);
процедура TForm1.Button1Click (Sender: TObject);
конст
cryp. масив [0..3] на байт # XA0 = (97,98,99,100);
Var
I: цяло число;
започвам
memo1.Lines.Clear;
защото: = Low (cryp) към висока (cryp) направи
# XA0; memo1.Lines.Add (Chr (cryp [Ь]));
приключи;
:)
Аз не съм, б, в, г трябва да се заключи, масив, че трябва да изход не е постоянен. в масив записва резултатът от изчислението и аз искам да го покажете под формата на символи.
Благодаря ви брат, всичко работи. Оказва се, че е необходимо да се направи типове реализации peremennyh.Da аз спирачка.
> Аз не съм А, В, С, D трябва да се заключи, масив, който ми трябва
> Изход не е постоянен. резултат е писано в масива
> Изчисляване и аз искам да го покажете под формата на символи.
И така, беше необходимо да се повдигне въпроса.
SetString (S, PAsniChar (@somearray [ниско (somearray)]), sizeof (somearray));
__cryp: масив [0..sizeof (cryp) -1] на charabsolute cryp;
.
memo1.Text: = __cryp;
Свързани статии