Cum se afișează valoarea unei variabile ca simbol
Există o serie de crip: matrice [0..3] de byte # xA0; = (97,98,99,100); / CODE>
Trebuie să afișați valoarea în câmpul Memo în formular # xA0; Caracterele ANSII, adică, a, b, c, d; Ce funcție se poate face acest lucru?
procedura TForm1.Button1Click (expeditor: TObject);
const
# xA0; cryp. array [0..3] de octet # xA0; = (97,98,99,100);
var
# xA0; i: întreg;
# xA0; s: șir;
începe
# xA0; s: = "";
# xA0; memo1.Lines.Clear;
# xA0; pentru i: = Scăzut (crip) la Înalt (crip)
# xA0; # xA0; s: = s + Chr (crip [i]);
procedura TForm1.Button1Click (expeditor: TObject);
const
Cryp. array [0..3] de octet # xA0; = (97,98,99,100);
var
i: întreg;
începe
memo1.Lines.Clear;
pentru i: = scăzută (crip) la mare (crip)
# xA0; memo1.Lines.Add (Chr (crip [i])));
se încheie;
:)
Pentru mine nu a, b, c, d este necesar să se deducă, o matrice pe care este necesar pentru mine să nu deduc o constantă. Rezultatul calculului este scris în matrice și trebuie să îl afișez ca caractere.
frate mulțumesc, totul funcționează. Se pare că a fost necesar să se facă conversia tipurilor de variabile.
> Pentru mine nu a, b, c, d este necesar să se deducă, o matrice care este necesară pentru mine
> ieșirea nu este o constantă. rezultatul este scris în matrice
> calcul și trebuie să îl afișez ca caractere.
Așa a fost necesară ridicarea întrebării.
SetString (s, PAsniChar (@somearray [low (somearray)]), sizeof (somearray));
__cryp: array [0..sizeof (cryp) -1] de charabsolute crip;
.
memo1.Text: = __cryp;
Articole similare
Trimiteți-le prietenilor: