Den Ordinal Wert eines Elements im Set ermitteln

[BUG]

Zitat von Kostas:

Jetzt habe ich eine Lösung gefunden. Muss ich morgen noch genau testen.

Das sieht doch nach einem guten Ansatz aus.
An deiner Stelle würde ich alle Einträge in dem Array füllen, die zu ignorierenden Sonderzeichen mit null und die gleichbleibenden Zeichen mit dem entsprechendem Zeichen. Dann brauchst du nach dem Nachschlagen nur noch die Nullwerte verwerfen.

[Kostas]

Das Problem ist, die Daten erzeugt eine externe Hardware. Der Hersteller konnte mir die Frage welche
CodePage verwendet wird nicht beantworten. Auch eine Erklärung warum die Umlaute und ein paar weitere Zeichen nicht nach ASCII ausgegeben werden sondern aus einer Umsetzungstabelle zu holen sind, hatte er nicht.

Somit bleibt mir nichts anderes als alle Zeichen versuchen als Char auszugeben und nur die Special characters
umzubiegen. Das System ist halt Historisch über die Jahre gewachsen und so richtig den Durchblick hat keiner,
incl. mich.

Was mich allerdings wundert ist, das Array SpecialCharacters konnte ich per SetLength(SpecialCharacters,13)
setzen. Die Values konnte ich jedoch setzen. Eigentlich hätte ich erwartet dass es Knallt.

Herzlichen Dank für die Hilfe nochmals. Das Thema ist erst einmal vom Tisch.

Gruß Kostas

[BadenPower]

Zitat von Kostas:

Was mich allerdings wundert ist, das Array SpecialCharacters konnte ich per SetLength(SpecialCharacters,13)
setzen. Die Values konnte ich jedoch setzen.

Müsste dieser Satz nicht so heißen:

... das Array SpecialCharacters konnte ich per SetLength(SpecialCharacters,13) NICHT setzen.

[EDIT]
Und wenn das NICHT in Deinem Satz fehlt, dann ergibt dieser auch Sinn.

Jedoch braucht man sich aber nicht wundern, dass SetLenght nicht funktioniert, aber die Zuweisungen, da es sich bei Deinem Array SpecialCharacters ja um ein konstantes Array[0..255] handelt und somit dann alles seine Richtigkeit hat.

[Kostas]

Zitat von BadenPower:

Zitat von Kostas:

Was mich allerdings wundert ist, das Array SpecialCharacters konnte ich per SetLength(SpecialCharacters,13)
setzen. Die Values konnte ich jedoch setzen.

Müsste dieser Satz nicht so heißen:

... das Array SpecialCharacters konnte ich per SetLength(SpecialCharacters,13) NICHT setzen.

[EDIT]
Und wenn das NICHT in Deinem Satz fehlt, dann ergibt dieser auch Sinn.

Jedoch braucht man sich aber nicht wundern, dass SetLenght nicht funktioniert, aber die Zuweisungen, da es sich bei Deinem Array SpecialCharacters ja um ein konstantes Array[0..255] handelt und somit dann alles seine Richtigkeit hat.

Auch wieder komplett richtig. Ich meinte natürlich "NICHT" Jetzt ist mir auch klar warum das nicht geht.
Dankeschön für die Erklärung.

Gruß Kostas

[Sir Rufo]

Wenn ich mir diese Übersetzungs-Liste anschaue, dann bekommst du eine Bytefolge der einen String in den Codepage 850 beinhaltet.

Warum also dieser Aufwand?

[mm1256]

....und mich erinnert die Problematik etwas an diesen Thread:

Schnellstes entfernen ...

weil: was für Entfernen schnell ist, ist auch für Ersetzen gut

[Kostas]

Zitat von Sir Rufo:

Wenn ich mir diese Übersetzungs-Liste anschaue, dann bekommst du eine Bytefolge der einen String in den Codepage 850 beinhaltet.

Warum also dieser Aufwand?

Hallo Rufo,

ich hatte mit die Code Page auf der wiki http://de.wikipedia.org/wiki/Codepage_850 angeschaut und mich täuschen lassen durch die Hex-Zahl unterhalb
des Zeichen. Doch die Zahl ist die Unicode Zahl. In der Matrix Links und oben ist die Zahl schön zu sehen.
Mist, jetzt muss ich nur schauen wie den empfangenen String in CodePage=850 umwandeln kann um aus ein
0x81 ein ü zu bekommen. Das ist sicherlich im Forum zu finden. Dankeschön für den Hinweis.

Gruß Kostas

[mm1256]

Zitat von Kostas:

Mist, jetzt muss ich nur schauen wie den empfangenen String in CodePage=850 umwandeln kann um aus ein
0x81 ein ü zu bekommen. Das ist sicherlich im Forum zu finden. Dankeschön für den Hinweis.

Gruß Kostas

Aber lesen tust du schon...? Den Link für die schnellste - von einigen DP'lern erarbeitetete - Lösung hab ich dir doch schon gegeben. Du musst die Routine nur an einer einzigen Stelle anpassen.

[Kostas]

Zitat von mm1256:

Zitat von Kostas:

Mist, jetzt muss ich nur schauen wie den empfangenen String in CodePage=850 umwandeln kann um aus ein
0x81 ein ü zu bekommen. Das ist sicherlich im Forum zu finden. Dankeschön für den Hinweis.

Gruß Kostas

Aber lesen tust du schon...? Den Link für die schnellste - von einigen DP'lern erarbeitetete - Lösung hab ich dir doch schon gegeben. Du musst die Routine nur an einer einzigen Stelle anpassen.

Auf die Gefahr hin dass du mich jetzt steinigst, habe ich den Thread gelesen. Doch in der Zwischenzeit
habe ich den Hinweis von SirRufo bekommen es handelt sich um die CodePage 850. Deshalb versuche ich
es damit: FBytes := TEncoding.GetEncoding(850).GetBytes(Msg); Gruß Kostas

[Uwe Raabe]

Zitat von Kostas:

Deshalb versuche ich
es damit: FBytes := TEncoding.GetEncoding(850).GetBytes(Msg);

Und wie machst du das unter Delphi 5?