怎样把一字符串转换为ASCII？

Question

我记得以前回复　过这类问题啊!!var
  vStr: String;
  vAsc: String;
  I: Integer;
begin
  vAsc := '';
  vStr := 'test';
  for I := 1 to Length(vStr) do
  begin
    vAsc := vAsc + IntToStr(Ord(vStr[I]));
  end; 
  ShowMessage(vAsc);
end;

Answer 1

刚出炉的~~ :-)function StringToAscII(const Value: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(Value) do
    Result := Result + IntToStr(Ord(Value[I]));
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := StringToAscII(Edit1.Text);
end;