Delphi-PRAXiS - Delphi © in AsciiWert umwandeln?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi © in AsciiWert umwandeln? (https://www.delphipraxis.net/103341-%A9-asciiwert-umwandeln.html)

Tommy1988

14. Nov 2007 16:00

© in AsciiWert umwandeln?

Hallo,

undzwar habe ich folgende Frage:

Wie ist es möglich z.B. für © den dafür vorgesehen Asciiwert "& # 169;" zu erhalten?

Bernhard Geyer

14. Nov 2007 16:03

Re: © in AsciiWert umwandeln?

Delphi-Quellcode:

Ord('©')

Tommy1988

14. Nov 2007 16:06

Re: © in AsciiWert umwandeln?

So einfach?

Mh.. dann werd ich mir mal "Ord" ansehen..

Tommy1988

14. Nov 2007 16:29

Re: © in AsciiWert umwandeln?

Ok, Erklärung:

Ich habe ein StringGrid mit allen möglichen Ascii-Zeichen.

Ich klicke eins Doppelt an, es wird via ein Label grafisch norrens dargestellt.
Dann klicke ich einen Button und es kommt in mein Memo.

Folgendermaßen habe ich es gelöst:

Delphi-Quellcode:

			private

buchstabe: String;

i: Integer;

// ...

// ..

  buchstabe := CharEdit.Text;

  i := Ord(buchstabe[1]);

  Memo1.SelText := '&#'+IntToStr(i)+';';

So das wars.

Muetze1

14. Nov 2007 16:57

Das Zeichen ist nicht im ASCII Satz vorhanden. Und selbst wenn, sei dir bewusst, dass es vom Font/Charset abhängt!

mkinzler

14. Nov 2007 17:01

Den der ASCII-Code hat nur 7 Bit (128). höhrere werte haben je nach Land andere Inhalte.

Alle Zeitangaben in WEZ +1. Es ist jetzt 09:02 Uhr.