![]() |
chr() bzw char() umkehren
Hallo liebe Community!
Ich habe ein Problem - schonwieder Schiffeversenken. Es gibt ja den Befehl chr ( X : integer ) bzw das Synonym dazu char ( X : integer ). Dieser Befehl bezweckt, dass man aus einem Integer ( bsp.: 65 ) die zugehörige ASCII-Zahl ausgibt ( in dem Falle "A" ). Ich brauche das bei der Koordinatenumrechnung von A:1 in die zugehörige Koordinate auf dem Image. Ich habe über google "ord () " gefunden, aber das nützt anscheinend nicht wirklich etwas:
Delphi-Quellcode:
Kennt jemand den Befehl? Weiß jemand wonach ich suchen muss?
x_k := PAnsiChar ( copy ( e_koords.Text, 0, 1 ) );
//Oder auch x_k := copy ( e_koords.Text, 0, 1 ); - es ist egal xx := ord ( x_k ) - 65; // ------------------------------- // [Fehler] ship.pas(239): E2008 Inkompatible Typen kroete |
Re: chr() bzw char() umkehren
Delphi-Quellcode:
xx := ord ( x_k[1] ) - 65;
|
Re: chr() bzw char() umkehren
dankeschön für die schnelle Antwort.
Aber heute bin ich iwie so ein bisschen dumm -
Code:
[Fehler] ship.pas(240): E2010 Inkompatible Typen: 'string' und 'Integer'
|
Re: chr() bzw char() umkehren
Delphi-Quellcode:
xx := ord ( e_koords.Text[1] ) - 65;
|
Re: chr() bzw char() umkehren
Hi,
ich glaube dein Fehler liegt im Typen von xx. Der darf dann natürlich kein String sein, wenn es eine Zahl speichern soll. Oder du wandelst diese wieder in einen String um, falls du sie irgendwo anzeigen willst. Ansonsten wäre
Delphi-Quellcode:
eine schöne kurze Lösung.
xx := ord(e_koords.Text[1]) - 65;
Mfg FAlter |
Re: chr() bzw char() umkehren
ok danke leute, es geht - xx musste integer sein, kein string ^^
|
Re: chr() bzw char() umkehren
Zitat:
|
Re: chr() bzw char() umkehren
Hi,
auch nicht ganz richtig, denn Chr ist auch keine richtige Funktion. Mfg FAlter |
Re: chr() bzw char() umkehren
Moin Jens,
Zitat:
|
Re: chr() bzw char() umkehren
Die Funktion Chr() ist zwar in System deklariert, aber es ist schon eine Funktion.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz