fpctest.ps

来自「Delphi script parser」· PS 代码 · 共 6 行

var
  i : Integer;
begin
  i:=pos('e', 'Hello');
  writeln(inttostr(i));
end.