使用Free Pascal开发STM32程序

在嵌入式系统开发中，STM32微控制器是非常受欢迎的选择之一。而Free Pascal则是一种强大的、跨平台的编程语言，它可以用于开发各种应用程序，包括嵌入式系统。本文将介绍如何使用Free Pascal开发STM32程序，并提供相应的源代码示例。

首先，我们需要准备一些开发环境。你可以从Free Pascal官方网站（https://www.freepascal.org/ ↗）下载并安装Free Pascal编译器。此外，你还需要安装STM32CubeMX，这是一个用于配置STM32微控制器的图形化工具。你可以从STMicroelectronics官方网站（https://www.st.com/ ↗）下载并安装该工具。

一旦你完成了开发环境的准备，我们可以开始编写STM32程序了。下面是一个简单的示例，演示了如何使用Free Pascal编写一个LED闪烁的程序。

program STM32_LED_Blink;

{$mode objfpc}
{$H+}

uses
  stm32f1xx_hal,
  stm32f1xx_hal_gpio,
  stm32f1xx_hal_rcc,
  stm32f1xx_hal_cortex,
  cortexm3;

var
  GPIO_InitStruct: GPIO_InitTypeDef;

begin
  // 初始化HAL库
  HAL_Init;

  // 配置系统时钟
  SystemClock_Config;

  // 使能GPIOC时钟
  __HAL_RCC_GPIOC_CLK_ENABLE;

  // 配置GPIOC.13为推挽输出
  GPIO_InitStruct.P