#? zu buchstave/zahl/zeichen ?

[Pseudemys Nelsoni]

hi

wie ich einen buchstabe zu ascii umwandle weiss ichz, aber wie kann ich z.b rausfinden wofür #100 steht? mit :

Delphi-Quellcode:

  Label2.Caption := IntToStr(Chr(StrToInt(Edit1.Text)));

hats nicht geklappt :(

[braingrenade]

Moin !

so könnte es funzen :

Delphi-Quellcode:

 Label2.Caption := IntToStr(Chr(integer(Edit1.Text[i])));

kannste halt immer nur einen buschstaben umwandeln !

[Stanlay Hanks]

Probier doch mal ganz einfach

Delphi-Quellcode:

ShowMessage(#100);

:wink:

[Pseudemys Nelsoni]

hoi, jo das funzt danke :), aber wie zeige ich mir das aus einem edit heraus aus an? wenn ich im edit "#100" stehen hab, wird mir auch #100 angezeigt :\

gruss

[Luckie]

Ordinal Wert eines ASCII-Zeichens: ord.
Zeichen eines ordinal Wertes: chr.

Wenn man das eine weiß, m uß man eigentlich in der Hilfe zwangsweise über das andere stolper. :roll:.

[Pseudemys Nelsoni]

jo, aber wie krieg ich #100 mit chr() umgewandelt?

[Stanlay Hanks]

Ich glaub, sein Problem is nicht wie man #100 in nen Buchstaben umwandelt, sondern wie man dem Programm sagt, dass er nicht '#100' als String aus dem Textfeld nehmen soll, sondern #100 als wert zum umrechnen

[Pseudemys Nelsoni]

genau

also showmessage(#100) geht, aber wenn ich im edit1 "#100" habe und showmessage(edit1.text) anzeige, wird #100 angezeigt (ist klar) aber wie zeig ich das nun so an das aus der #100 ein "d" wird?

[Luckie]

Im Edit die Raute weglassen:

Delphi-Quellcode:

ShowMessage(chr(StrToInt(Edit1.Text)));

Oder wenn sie drin steht vorher wegschneiden, entfernen, eliminieren oder was auch immer mit machen.

[Pseudemys Nelsoni]

Delphi-Quellcode:

  label2.Caption := chr(StrToInt(Edit1.Text));

so geiths, thx all^^

[Luckie]

Glaube ich nicht. Da kommt bei mir:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: ''#100' ist kein gültiger Integerwert'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

[Pseudemys Nelsoni]

hm ja stimmt, wenn ich das so hab (also ohne #):

Delphi-Quellcode:

procedure TForm1.Image2Click(Sender: TObject);
var
  s: string;
begin
  if Edit1.Text <> '' then
  begin
    s := Edit1.Text;
    Try
      if s[1] <> '#' then
      label2.Caption := chr(StrToInt(s))
      else
      begin
        Delete(s, 1, 1);
        label2.Caption := chr(StrToInt(s));
      end;
    except
      on EConvertError do
      begin
        label2.Caption := 'Falsche Eingabe!';
      end;
    end;
  end
  else
  Label2.Caption := 'Gib halt was ein!';
end;

zeigt mir das programm, wenn ich 958 eingebe als ergebnis "¾" an.
Obwohl 958 = "¥" ist

hmm

[Luckie]

958 liegt weiter hinter dem ASCII-Zeichensatz. Ist also abhänging von der Zeichensatzttabelle, der Schriftart und ob Uni-Code oder nicht Uni-Code.

[Pseudemys Nelsoni]

beide schriften waren Verdana. unicode?

[Christian Seehase]

Moin Silent,

die Funktion chr erwartet als Parameter ein Byte, und macht somit aus 958 958 mod 256 => 190 => ¾.

Wenn Du Unicodezeichen verwenden willst, müssen alle Komponenten auch mit Widestring (-character) arbeiten.

[Pseudemys Nelsoni]

hoi, gibt es dafür ein beispielcode?
ich möchte das beim drücken von Button1, der wert aus dem Edit1.text umgewandelt wird und das ergebnis im label erscheint