Tweet
Hallo, wie bekomme ich den ANSI Code eines Zeichens und wie addiere ich mehrere Codes ? Vielen Dank im voraus.
-
-
Hallo René,
den ASCII-Code z.B. des Zeichen's A ermittelst Du mit Ord('A').
Die Addition kann dann direkt mit dem Funktionsergebnis von Ord erfolgen, also z.B. <b>edit1.text := inttostr(ord('A') + ord('b'));</b>
Tschüß
Torste -
Ja, soweit OK. Nun versuche ich krampfhaft die ASCII Codes aus einem String zu adieren. Immer habe ich es mit inkompatiblen Typen zu tun. Kann bitte nochmal jemand helfenComment
-
Hallo Rene,<br>
ein bisschen Code wäre sehr hilfreich<br>
Jens Schumann<br>Comment
-
Hallo Jens, Hier mein Problem. Summe soll die Summe der SSCII Codes in Edit1.text sein.
var
summe,laenge : Intger;
begin
for laenge := 1 to length(edit1.text) do
summe:= summe+ ord(copy(edit1.text,1,laenge));
endComment
-
Hallo Rene,<br>
<pre>
<font face="Verdana" size="1" color="#000000">var
summe,
laenge : Integer;
begin
summe:=0;
For laenge:=1 to Length(edit1.Text) do
Inc(Summe,Ord(edit1.Text[laenge]));
end;</font>
</pre>
Copy liefert als Ergebnis einen String. Ord erwartet als Parameter einen Char.<br>
Jens Schumann<br>

Comment
Comment