Virtual Pascal调用GetDate出现类型不匹配错误，求排查原因

云上老周

2026-8-1

问题：Virtual Pascal移植DOS Pascal到Windows时GetDate类型不匹配错误

我正尝试使用Virtual Pascal将一款DOS Pascal应用移植到Windows平台，整体进展顺利，但运行以下过程时触发类型不匹配错误：

PROCEDURE SysDate(VAR dt : datetype);
VAR
A,B,C,D : WORD;
BEGIN
  GETDATE(A,B,C,D);
  DT.YEAR := A;
  DT.MONTH := B;
  DT.DAY := C;
END;

错误信息：

Error 26: Type mismatch
  GETDATE(A,B,C,D);
...........^

我查看了Virtual Pascal的源码，发现仅DOS单元定义了GetDate()，且所有参数均定义为WORD类型，符合预期。请问可能是什么原因导致的？

解答

未正确引用DOS单元：如果代码的uses子句里没包含DOS单元，编译器找不到正确的GetDate函数声明，会尝试匹配其他同名函数或因无声明默认推断类型，最终引发参数类型不匹配报错。检查代码头部的uses语句，确保添加DOS。
编译目标模式冲突：Virtual Pascal分DOS和Windows两种编译目标。当选择Windows模式编译时，DOS单元的部分函数会被禁用或无法正常识别，编译器无法正确解析DOS单元里的GetDate，进而出现类型误判。可以切换到DOS兼容模式编译，或确认当前编译配置是否允许调用DOS API。
同名函数冲突：虽然仅DOS单元有GetDate，但Windows相关单元（如Windows单元）可能存在同名但参数类型不同的函数。如果代码同时引用这类单元，编译器会优先匹配Windows版本的GetDate，其参数类型大概率不是WORD，从而触发类型不匹配错误。排查uses里的单元，若有引入可能含同名函数的Windows单元，可通过DOS.GetDate的方式显式指定调用DOS单元的函数。
类型别名问题：部分场景下，代码里的WORD可能被其他单元重新定义为不同类型（比如Windows环境下部分单元会对基础类型做别名映射），导致实际传递的参数类型和GetDate要求的WORD不匹配。可以尝试用DOS.WORD显式声明变量，确认类型一致性。