String -> Byte - wie geht das?

[braingrenade]

Moin !

Meine Idee dazu :

Delphi-Quellcode:

type
  Tbuf = record
    case boolean of
      true : (ch : char);
      false : (b : byte);
    end;


function chartobyte(ch : char) : byte;
var buf : Tbuf;
begin
buf.ch := ch;
result := buf.b
end;


....
for i := 0 to length(string1) do 
begin
bytearray[i] := chartobyte(string1[i]);
end;
....

Is jetzt zwar nich getestet, aber sollte funktionieren.


edit: Verdammt, das teil is ja viel zu kompliziert geht vieeeeel einfacher !