PROCEDURE DO;
VAR
SS:ARRAY OF STRING;
I:INTEGER;
BEGIN
GETSTR(SS,'111','1234234');
FOR I:=LOW(SS) TO HIGH(SS) DO
SHOWMESSAGE(SS[I]);
END;
PROCEDURE getstr(RESULTS:ARRAY OF STRING;s1,s2:string)string;
begin
setlength(result,2);
resultS[0]:=s1;
resultS[1]:=s2;
end;
VAR
SS:ARRAY OF STRING;
I:INTEGER;
BEGIN
GETSTR(SS,'111','1234234');
FOR I:=LOW(SS) TO HIGH(SS) DO
SHOWMESSAGE(SS[I]);
END;
PROCEDURE getstr(RESULTS:ARRAY OF STRING;s1,s2:string)string;
begin
setlength(result,2);
resultS[0]:=s1;
resultS[1]:=s2;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货