注意没有额外行的实现这是我的代码:
function mycopy(s: string; start: byte; len: byte): string;
var
i: byte;
begin
s:='';
i:=1;
while (start<=length(s)) do begin
s:=s+s[start];
inc(start);
inc(i);
end;
mycopy:=s;
end;
文本应该显示在标记区域中,但正如我们所看到的,没有显示任何内容。