testforin.out

来自「格式化源码的最新板」· OUT 代码 · 共 19 行

unit testforin;

interface

implementation

type
  tstringarray = array of string;

procedure demo1(const list: tstringarray);
var
  s: string;
begin
  for s in list do
    writeln(s);
end;

end.