Umrechnen von String-Werten zu dezimal Code und zurück

[_frank_]

eine idee hab ich noch...mach den dezimalcode immer 3-stellig wenn du den string erweiterst
z.b. so:

Delphi-Quellcode:

function StringToCharCodes(s: string): string;
var i:integer;
begin
  Result := '';
  for i := 1 to length(s) do
    Result := Result + format('%.3d',[ord(s[i])]);
end;

function CharCodesToString(s: string): string;
var i,c:integer;
begin
  Result := '';
  c:=length(s) div 3;
  for i := 0 to c-1 do
    Result := Result + chr(strToInt(copy(s,i*3+1,3)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.text:=StringToCharCodes(edit1.text);
  edit3.text:=CharCodesToString(edit2.text);
end;

Gruß Frank