Chinesensong

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