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.