如何实现两个字符串（相同长度）对应位ASCII码相加？

Question

如：字符串一：‘abcd’字符串二：‘efgh’
把a与e,b与f...相加后返回一个新的字符串

Answer 1

var
  c: char;c := chr(ord('a') + ord('e'))

Answer 2

如果不需要str1鸟,就这样
  str1:='abcd';
  str2:='efgh';
  INC(str1[1+i],Byte(str2[1+i]));
  str3:=str1;
如果是还要,就换顺序成
  str1:='abcd';
  str2:='efgh';
  str3:=str1;
  INC(str3[1+i],Byte(str2[1+i]));

Answer 3

function ShiftStr(str1,str2:string):string;  //移位字符串
  var i:integer;
begin
    Result:='';
    for i:=1 to length(str1) do
    begin
    Result:=Result+str1[i]+str2[i];
    end;
end;