Hogyan jeleníthetjük meg a változó értékét szimbólumként?

Hogyan jeleníthetjük meg a változó értékét szimbólumként?

Van egy sor cryp: array [0..3] byte # xA0; = (97,98,99,100); / KÓD>
Az értéket a Memo mezőben kell megjeleníteni az űrlapon # xA0; ANSII karakterek, azaz a, b, c, d; Milyen funkciót lehet tenni?

eljárás TForm1.Button1Kattintson (Feladó: TObject);
const
# xA0; cryp. tömb [0..3] byte # xA0; = (97,98,99,100);
var
# xA0; i: egész szám;
# xA0; s: string;
kezdődik
# xA0; s: = "";
# xA0; memo1.Lines.Clear;

# xA0; i: = Alacsony (cryp) - High (cryp) igen
# xA0; # xA0; s: = s + Chr (cryp [i]);

eljárás TForm1.Button1Kattintson (Feladó: TObject);
const
cryp. tömb [0..3] byte # xA0; = (97,98,99,100);
var
i: egész szám;
kezdődik
memo1.Lines.Clear;
i: = Alacsony (cryp) - High (cryp) igen
# xA0; memo1.Lines.Add (Chr (cryp [i])));
végén;
:)

Számomra nem a, b, c, d következtetést kell levonni, olyan tömböt, amelyre nem szükségképpen következtetni kell. A számítás eredménye a tömbre van írva, és karakterként kell megjelenítenem.

testvér köszönöm, minden működik. Kiderül, hogy szükségessé vált a változó típusok átalakítása.


> Nekem nem a, b, c, d szükséges dedukálni, egy tömb, ami nekem szükséges
> kimenet nem állandó. az eredmény a tömbre van írva
> számítást, és karakterként kell megjelenítenem.

Ezért kellett feltenni a kérdést.

SetString (s, PAsniChar (@somearray [alacsony (somearray)]), sizeof (somearray));

__cryp: array [0..sizeof (cryp) -1] A charabsolute cryp;
.
memo1.Text: = __cryp;

Kapcsolódó cikkek