ASCII Zahl für Buchstaben auslesen und anzeigen lassen

[darkdantedante]

Hey,
ich habe hier ein Problem.
Ich möchte aus einem Editfeld einen Buchstaben auslesen und diesen als Zahl (Zahl der ASCII Tabelle) ausgeben lassen.
Genau umgekehrt soll das auch geschehen. Dieses habe ich jedoch schon gelöst.

Ihr könnt euch ja meinen Quelltext mal anschauen und mir einen Tipp geben, was ich falsch gemacht habe.

Vielen Dank schon mal im Vorraus!!

[Euklid]

Hallo,

probier mal inttostr, um die Zahl wieder in ein Zeichen umzuwandeln.

Zudem musst Du beachten, dass ord(zahlzeichen) nicht gleich der Zahl ist - ord gibt nur zurück, das wievielte Ascii-Zeichen die Zahl ist.

Aber wie gesagt - ich würde mit StrToInt arbeiten, um eine Zeichenfolge in eine Zahl zu wandeln und IntToStr, um eine Zahl in eine Zeichenfolge zu wandeln.

Viele Grüsse, Euklid

[Heinrich Wolf]

Code: Alles auswählen

var z : char;
z := edit1.text;

Das akzeptiert der Copiler nicht, weil edit1.text mehrere Zeichen lang sein kann. Du musst schreiben

Code: Alles auswählen

var z : char;
    s : string;
s := edit1.text;
if s > '' then
  begin
    z := s[1];

Heiner

[darkdantedante]

Code: Alles auswählen

var z : char;
z := edit1.text;

Das akzeptiert der Copiler nicht, weil edit1.text mehrere Zeichen lang sein kann. Du musst schreiben

Code: Alles auswählen

var z : char;
    s : string;
s := edit1.text;
if s > '' then
  begin
    z := s[1];

Heiner

Kann ich das nicht viel einfacher mit dem Objektinspektor beschränken (maxlength)?

dann sag ich da: maxlength 1
und somit ist klar, dass nur ein z.B. "A" eingegeben werden kann

[Heinrich Wolf]

Kann ich das nicht viel einfacher mit dem Objektinspektor beschränken (maxlength)?

dann sag ich da: maxlength 1
und somit ist klar, dass nur ein z.B. "A" eingegeben werden kann

MaxLength = 1 ist durchaus sinnvoll. Aber ein String der Länge 1 ist damit noch immer inkompatibel zu einem char.

[mschnell]

und somit ist klar, dass nur ein z.B. "A" eingegeben werden kann

Oder ein "Ä"

(Das hat keinen ASCII-Code, sondern gibt es nur bei ANSI, UTF, oder sonstigen. )

-Michael

[Heinrich Wolf]

Das eine Zeichen Ä belegt 2 Bytes im UTF8 Code

Code: Alles auswählen

var     p : PChar;
          t : String;
          l,
          i : Integer;
  begin
    p := pChar(Edit1.Text);
    t := '';
    l := UTF8CharacterLength(p);
    for i := 1 to l do
      begin
        t := t + IntToHex(ord(p[0]), 2);
        inc(p);
      end;
    Label1.Caption := t;
  end;

[mschnell]

Das eine Zeichen Ä belegt 2 Bytes im UTF8 Code

Yep. Kann man aber in ein TEdit eingeben, wenn maxlength = 1 ist. Da wird anscheinend die Länge in "druckbaren Zeichen" berechnet (was immer das auch genau heißt und wie das realisiert ist).

-Michael

[darkdantedante]

Vielen Dank für Eure Mühe! Habe das Problem nun gelöst