Den Ordinal Wert eines Elements im Set ermitteln

[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 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

[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

[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?

[Kostas]

Zitat von Uwe Raabe:

Zitat von Kostas:

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

Und wie machst du das unter Delphi 5?

Ja, das habe ich auch bemerkt dass das nicht funktioniert.

[Bjoerk]

Guckst du hier:

http://forum.delphi-treff.de/index.p...z-%C3%A4ndern/