littletest51.out

格式化源码的最新板

unit littletest51;

interface

implementation

function foo: string;
begin
  Result := 'foo';
end;

procedure bar;
var
  ch: char;
  li: integer;
begin
  li := 3;
  ch := #32;
  ch := foo[1];
  ch := foo[li + 3];
  ch := (foo + foo)[1];
  ch := (foo + #32)[li + 3];
  ch := (#32 + #32)[2];
end;

end.