JAVA的方法转DELPHI的方法的写法?

Question

我看到段代码想转换成DELPHI的代码.以下这段代码转换成DELPHI的方法应该怎么写?~~谢谢各位大虾帮个忙~~
private String setEn pt(String str,String key){
int ch = str.length();
char[] sIn = str.toCharArray();
char[] sKey = key.toCharArray();
int out;
char[] chO = new char[ch];
for (int i = 0; i < ch; i++) {
// 对换行符进行判断 if (i < sKey.length) {
out = (sIn[i] ^ sKey[i]);
chO[i] = (char) out;
} else {
out = sIn[i] ^ sKey[sKey.length - 1];
chO[i] = (char) out;
}
}
return String.valueOf(chO);
    }

Answer 1

function setEnpt(str:string;key:string):string;
var
  i: integer;
begin
  setlength(Result,length(str));
  for i:=1 to length(str) do
  begin
    if i<length(key) then
      Result[i]:= char((ord(str[i]) xor ord(key[i])))
    else
      Result[i]:= char(ord(str[i]) xor ord(key[length(key)]));
  end;
end;