Pascal
perry_peng
***
展开
-
使用批处理生成简便的makefile为free pascal自动编译。
echo off ::# 为fpc设置工作目录。 set Path=%PATH%;D:\fpc32-2.24 set Path=%PATH%;D:\fpc32-2.24\bin\i386-win32 set Path=%PATH%;D:\fpc32-2.24\units\i386-win32 ::# 获得当前目录名称。 set project=%~dp0 set projec原创 2011-11-22 15:06:59 · 1138 阅读 · 0 评论 -
Create a new GUID using FreePascal
fpc32-2.24 source. { } {$IFDEF FPC} {$MODE OBJFPC} {$ENDIF} {$APPTYPE CONSOLE} program guid; uses sysutils; var gg: TGuid; gs: string; begin gs := '{00000000-0000-0000-原创 2012-05-25 14:30:11 · 549 阅读 · 0 评论