sample - string char.pas

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAS 代码 · 共 14 行

var
  S: string;
begin
  //S := '1234567890';
  S := '';
  try
    Result := S[11];
  except
    on E: ERangeError do
      Result := 'error';
  end;
end;