ASCII umwandeln

[quendolineDD]

Vielleicht solltest du deine Typen überdenken. Wenn du ein Array of Char nimmst, kannst du ganz einfach direkt die Zeichen zuweisen. zB ist CharArray[0] := #32; dann ein Leerzeichen.
Oder du speicherst die Ascii-Codes in einem Array of Integer, und kannst dann mit ORD und CHR beliebig hin und her springen.

zB könntest du es so machen :

Delphi-Quellcode:

type
  TAsciiArray = array of Integer;

function TForm1.StringToAscii(Value: String): TAsciiArray;
var i : integer;
begin
  SetLength(Result, SizeOf(Value));
  for i := 0 to Sizeof(Result) do
    Result[i] := ORD(Value[i+1]);
end;

function TForm1.AsciiToString(Values: TAsciiArray): String;
var i : integer;
begin
  Result := '';
  for i := 0 to SizeOf(Values)-1 do
    Result := Result + CHR(Values[i]);
end;