function f: string;
var
I: Integer;
begin
Result := '';
for I := 0 to 255 do
Result := Result + Format('%d:%s'#13#10, [I, Chr(I)]);
end;
var
I: Integer;
begin
Result := '';
for I := 0 to 255 do
Result := Result + Format('%d:%s'#13#10, [I, Chr(I)]);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货