Chinesensong

[Foxgrove]

Hallo,

ich möchte einen kleinen Text eingeben.
In diesem in einer Schleife Buchstabe um Buchstabe isolieren
und dessen ASCII-Wert ermitteln und diese Zahlen zu einer
Summe addieren.

Evtl. auch Selbstlaute ersetzen, also: Chinesensong spielen.

Mit CHR( ) kann man Zahlen in Buchstaben verwandeln,
wie geht aber der andere Weg: Buchstaben in Zahlen? In
Basic hat man die ASC( ) Funktion, wie geht die in Delphi?

Gruß Foxgrove

[Luckie]

Das ist jetzt shcon der zwiete Thread mit dem nichtssagenden Titel "Chinesensong"! Bitte gib deinen Threads aussagekräftige Titel, damit man sieht, um was es geht. Editier dazu einfach dein erstes Posting mit dem du den Thread eröffnet hast.

[Daniel G]

Ord()

Ist das, was du suchst

[Matze]

Zitat:

Zitat von Foxgrove

Mit CHR( ) kann man Zahlen in Buchstaben verwandeln ...

... und mit Ord () wieder zurück.


Nachtrag: Wieso kommt bei mir eigentlich kein roter Kasten mehr? :(

[ichbins]

du kannst den char einfach in einen Byte-Wert umwandeln, da er ebenfalls einen Byte Speicher belegt:

Delphi-Quellcode:

var
  b:byte;
  c:char;
begin
  c:='X';
  b:=byte(c);
  c:=char(b);
end;

Byte-Variablen sind auch Integer-Werte, können also einfach zu einem Integer addiert oder zugewiesen werden.


den Text kannst du so durchgehen:

Delphi-Quellcode:

var 
  i,j,summe:integer;
begin
  summe:=0;
  for i:=0 to text.count-1 do
    for j:=1 to length(text.strings[i]) do
      summe:=summe+byte(text[i,j]);
end;