Ich möchte in der EXE Sonderzeichen wie z.B. "␍ ␊ Gu ␝ ␄" darstellen können.
Der Test:
Code: Alles auswählen
Procedure TForm1.FormShow(Sender: TObject);
Var s: String;
i: Integer;
Begin
s := #13#32#10' Gu '#$1D#32#$04;
For i := 0 To 31 Do
s := StringReplace(s, Chr(i), UTF8Encode(WideChar($2400 + i)), [rfReplaceAll]);
ListBox1.Items.Add(s);
Clipboard.AsText := s;
end;
Die FOR-Schleife ersetzt die Zeichen #00 .. #31 in die Zeichen ab #$2400 so wie hier in der Unicode-Liste zu sehen:
https://www.compart.com/de/unicode/sear ... characters
Danach werden die in eine TListBox geschrieben sowie in die Zwischenablage damit ich den Text in z.B. Openoffice einkopieren kann.
Muss ich da noch den String s umkonvertieren damit es geht?
Vielen Dank für eure Hilfe.
Markus
Testprojekt: