© in AsciiWert umwandeln?

[Tommy1988]

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]

Ord('©')

[Tommy1988]

So einfach?

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

[Tommy1988]

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]

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

[mkinzler]

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