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;