ASC umwandeln.

[smart]

Hallo Alle!

Ich habe auf einer Form, 2 TEdit. In dem ersten Edit möchte ich den ASC eingeben und im zweiten soll dann das entsprechende Zeichen erscheinen.

Wieso geht dieser Code nicht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var A: Variant;
begin
A := Edit1.Text;
Edit2.Text := Edit2.Text + Chr(A);
end;

[mkinzler]

Ord()

[marabu]

Hallo Heike,

wenn ich dich richtig verstanden habe, dann musst du nur etwas mithelfen:

Delphi-Quellcode:

var
  A: Variant;
begin
  A := Edit1.Text;
  Edit2.Text := Edit2.Text + Chr(Integer(A));
end;

Grüße vom marabu

[mkinzler]

Man sollte die Frage richtig Lesen!

[Neutral General]

Zitat von mkinzler:

Man sollte die Frage richtig Lesen!

Naja Ord war auch gar nicht so schlecht

Delphi-Quellcode:

 A := Ord(Edit1.Text); // oder ich glaube Ord(Edit1.Text[1]);
 Edit2.Text := Edit2.Text + Chr(A);

Aber wieso unbedingt en Variant ? o.O ich würd einfach nen Byte nehmen.. reicht doch auch...
Oder hab ichs jetzt falsch vestanden ? o.O

[smart]

Zitat von marabu:

wenn ich dich richtig verstanden habe, dann musst du nur etwas mithelfen:

Ja, fast. So hatte ich das auch schon versucht, aber dann kann man nur bis 99 umwandeln. wenn ich dann z.B. 'A2' darstellen möchte, kommt ne fehlermeldung. Ich mache da irgendwo einen Denkfehler, nur wo?

Gruß
Heike

[3_of_8]

@General:

Lesen!

Delphi-Quellcode:

var int: Integer;
begin
  if TryStrToInt(edit1.text, int) then
    Edit2.Text := Edit2.Text + Chr(int)
  else
    showmessage('Bitte geben sie eine gültige Zahl ein.');
end;

So hätt ichs gemacht.

@smart: Was ist A2? Ein Hexwert? Dann könntest du statt TryStrToInt(edit1.text, int) schreiben TryStrToInt('$'+edit1.text, int).

[smart]

Zitat von 3_of_8:

@smart: Was ist A2? Ein Hexwert? Dann könntest du statt TryStrToInt(edit1.text, int) schreiben TryStrToInt('$'+edit1.text, int).

Genau, so geht es. Vielen Dank, dass ist nett von Dir.

Auch die Anderen, vielen Dank!
Heike

[3_of_8]

Ich muss aber dazu sagen, dass das ein ganz böser und schlampiger Workaround ist.

[Klaus01]

Warum gibst Du, wenn Du eine HexWert eingibst, diesem Wert nicht gleich ein $ Zeichen mit.
Dann weiß auch jemand der das Programm nicht kennt, daß das ein gültiger wert sein kann.

Denn wenn Du TryStrToInt('$'+edit1.text, int) nimmst werden auch die 99 als Hexwert
genommen und damit bist Du aus dem Bereich der gültigen Ascii Zeichen heraus.

Grüße
Klaus