Як вивести значення змінної у вигляді символу
Є масив cryp: array [0..3] of byte # XA0; = (97,98,99,100); / CODE>
Потрібно вивести значення в поле Memo у вигляді # XA0; ANSII символів, тобто a, b, c, d; Який функцією це можна зробити?
procedure TForm1.Button1Click (Sender: TObject);
const
# XA0; cryp. array [0..3] of byte # XA0; = (97,98,99,100);
var
# XA0; i: integer;
# XA0; s: string;
begin
# XA0; s: = "";
# XA0; memo1.Lines.Clear;
# XA0; for i: = Low (cryp) to High (cryp) do
# XA0; # XA0; s: = s + Chr (cryp [i]);
procedure TForm1.Button1Click (Sender: TObject);
const
cryp. array [0..3] of byte # XA0; = (97,98,99,100);
var
i: integer;
begin
memo1.Lines.Clear;
for i: = Low (cryp) to High (cryp) do
# XA0; memo1.Lines.Add (Chr (cryp [i]));
end;
:)
Мені ж таки не a, b, c, d потрібно вивести, масив який мені потрібно висновок не константа. в масив записується результат розрахунку і мені його потрібно відобразити у вигляді символів.
brother спасибі, все працює. Виходить що потрібно було зробити перетворення типів переменних.Да гальмую.
> Мені ж таки не a, b, c, d потрібно вивести, масив який мені потрібно
> Висновок не константа. в масив записується результат
> Розрахунку і мені його потрібно відобразити у вигляді символів.
Ось так і треба було ставити питання.
SetString (s, PAsniChar (@somearray [low (somearray)]), sizeof (somearray));
__cryp: array [0..sizeof (cryp) -1] of charabsolute cryp;
.
memo1.Text: = __cryp;