Procedure TFORM1.BUTTON1CLICK (Sender: TOBJECT);
Var str: String; A, i: integer;
Begin
Str: = edit1.text;
A: = Length (edit1.text);
For i: = 1 to a do
STR [I]: = char 20); // Str [i] means each byte in Edit1, such as the first byte, then equal to the rear, encryption calculation from.
Edit2.text: = STR;
END;
The XOR 20 is actually an exotic operation (2-based operation), if the same is equal to 1, not the same person is equal to 0, of course, there is also counterconstruction.
ORD means to convert each 'character' (one byte) to 2 credit corresponding to 'value'
And char is a 'character' (one byte) to correspond to the corresponding 'character'.
But in fact, in memory, it is expressed in 2 credits, but I have to write like this in the program.