If you really want to convert it, this code will be executed
var
BinarySize: Integer;
InputString: string;
StringAsBytes: array of Byte;
begin
BinarySize := (Length(InputString) + 1) * SizeOf(Char);
SetLength(StringAsBytes, BinarySize);
Move(InputString[1], StringAsBytes[0], BinarySize);
But as already mentioned, this will not save you. Their number will be almost the same. You will not get anything from this. If you have many lines, use a different approach. Like something from this list of options:
- Use a dictionary and keep only one line after
- . - . .
- , .
- , - , . .
, .
, ( ), Suffix Trie B-Tree . . , .
, , , , , . 22 .