如何将一个字符串转换为整形数组，经运算后再转换回字符串？

[xsjs]

如何将一个字符串转换为整形数组，经运算后再转换回字符串？
另：delphi中怎样把数组作为参数传递给过程或函数，怎样用指针访问数组元素？
谢了！

[hch_45]

type
TArray = array of string;

procedure TrimChar(s:string;var sRet : TArray);
function CountChar(s:string; c:char):integer;
var
i : integer;
begin
result := 0;
for i := 1 to Length(s) do
if s[i] = c then Inc(result);
end;
var
iPos : integer;
i : integer;

begin
SetLength(sRet, CountChar(s, ',') + 1);
iPos := Pos(',', s);
i := 0;
while iPos > 0 do
begin
sRet[i] := Copy(s, 1, iPos - 1);
Delete(s, 1, iPos);
iPos := Pos(',', s);
Inc(i);
end;
sRet[i] := s;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sA : TArray;
s : string;
i : integer;
begin
s := 'abc,cd,mm,44';
sA := nil;
TrimChar(s, sA);
for i := Low(sA) to High(sA) do
Memo1.Lines.Add(sA[i]);
end;

[boywu]

1.用inttostr和strtoint两个函数。
2.把数组作为参数传递给过程或函数，数组必须先在type里定义，如
type Myarray:array [1..100] of integer;
...
procedure p(a:Myarray);
...

[cll007]

var
s,r:string;
i:integer;
begin
s:='dsfsdfsd234535';
for i:=1 to length(s) do
begin
r:=r+chr(ord(s[i])+1);
end;
Caption:=r;
end;
传数组和普通类型参数一样