如何将字符转换成ascii

Question

一段字符串  转换成ascii 然后在每个前面加上一个$这里是vbsrip 不知道用delphi怎么表示
function change(k)
 s=""
 for i = 1 to len(k)
  s=s&asc(mid(k,i,1))&"$"
 next
 change=left(s,len(s)-1)
end function

Answer 1

帮助里的uses Dialogs;
type   Colors = (RED,BLUE,GREEN);var  S: string;
 begin
   S := 'BLUE has an ordinal value of ' + IntToStr(Ord(BLUE)) + #13#10;
   S := S + 'The ASCII code for "c" is ' + IntToStr(Ord('c')) +  ' decimal';
   MessageDlg(S, mtInformation, [mbOk], 0, mbOK);
 end;

Answer 2

给你改成delphi的了
function change(k:string):string; 
begin 
s:=''; 
 for i = 1 to length(k) do 
  s:=s+inttostr(ord(copy(k,i,1)))+'$'; 
 change:=left(s,length(s)-1); 
end