Aus ASCII-Codes strings machen?

[Sharky]

Zitat von malo:

....Und außerdem weiß ich jetzt nicht, wie ich jetzt auf die einzelnen "Teilstrings" zugreifen kann (also die, die je durch ein Leerzeichen getrennt sind).

Jeder "Teilstring" ist jetzt eine "Zeile" in deiner TStringList.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
  FindBlank: TStrings;
  encode : String;
begin
  encode := '';
  FindBlank := TStringList.Create;
  try
    FindBlank.Delimiter := ' ';
    FindBlank.DelimitedText := Memo1.Text;
    for ndx := 0 to Pred (FindBlank.Count) do
    begin
      encode := encode + Chr (StrToInt(FindBlank.Strings[ndx]));
    end;
  finally
    FindBlank.Free;
  end;
    Memo2.Text := encode;
end;