Einzelnen Beitrag anzeigen

Tommy1988
(Gast)

n/a Beiträge
 
#4

Re: © in AsciiWert umwandeln?

  Alt 14. Nov 2007, 16:29
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.
  Mit Zitat antworten Zitat