Zitat von
marabu:
Hallo Emil,
wenn ich deine gegebene Code-Zeile in etwas sinnvolles umforme, dann kommt das hier heraus:
IntX := IntX + Ord(UpCase(StrS[1])) - 65;
Aber vielleicht beschreibst du besser, was du eigentlich erreichen willst.
Grüße
Ich möchte den
ASCII code ermitteln!
Beispiel UpperCase ist ein Großbuchstabe "B" davon den asc(wert - 65) welcher zu IntX addiert werden soll.
BWidth ist die weite des Buchstaben der oben im Quelltext ermittelt wird!
Code:
VB: IntX = IntX + Int(BWidth(Asc(UCase(StrS)) - 65)
hoffentlich verstehst du was ich meine.
EDIT: Die abfrage ist richtig konnte aber für Asc in Delphi nur ORD ausfindig machen.
Da gibt es aber leider das oben gezeigte problem.
gruß