sample - string char.pas

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

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