Z
zzutlink
Unregistered / Unconfirmed
GUEST, unregistred user!
请大家帮忙,代码如下
function proc1(s1,s2: string): string;
var
tmp1,tmp2:string;
len1,len2,i,j:Integer;
begin
len1:=Length(s1);
len2:=Length(s2);
SetLength(tmp1,len1)
j:=1;
for i:=1 to len1 do
begin
tmp1 := Chr(Ord(s1)+Ord(s2[j]))
Inc(j)
if j = len2+1 then j := 1
end;
Result := tmp1
end;
恳请哪位帮我改成可以封装到dll的代码，谢谢。
function proc1(s1,s2: string): string;
var
tmp1,tmp2:string;
len1,len2,i,j:Integer;
begin
len1:=Length(s1);
len2:=Length(s2);
SetLength(tmp1,len1)
j:=1;
for i:=1 to len1 do
begin
tmp1 := Chr(Ord(s1)+Ord(s2[j]))
Inc(j)
if j = len2+1 then j := 1
end;
Result := tmp1
end;
恳请哪位帮我改成可以封装到dll的代码，谢谢。